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Sherlock Holmes had Watson. ..now, YOU can 



Dear Friend, 

Suppose you could spend a little time each month with some of the world's most astute 
programming wizards, hardware and firmware genuises, systems analysts, wargame and 
adventure simulators, and a variety of other top professionals - men and women who 
understand computers and can talk to you in a language which you will be able to follow. 
Suppose you could get their views and learn their techniques on a host of subjects which 
relate to the home computer, an often frustrating beast. 

Suppose too, that you could find out how these people are successfully dealing with the 
ever-changing technology of the home computer, with the special conditions that confront 
both neophytes and masters alike. Suppose there was a magazine which carefully examined 
the problems facing all segments of microcomputing and explained in patient detail the 
solutions. . . 

Wouldn't it be worthwhile? Wouldn't it help you or your family members hone their skills to 
razor sharpness? Wouldn't it help give you the added ammunition you need to wage war on 
an equal footing with the microcomputer? Wouldn't it give you greater confidence? 

If you were among the Fortune 500, you could retain all the specialists you want. Such 
luxuries usually aren't feasible for the average household or small businessperson. But now, at 
least, you can get the next best thing - at a price that won't even put a dent in the ol' cookie 
jar. 

It's Softside, the new magazine for those interested in home computers, and who require 
authoritative, reliable information, but who can't get it from existing publications in a fashion 
which can be understood. If you can't justify the fees that top professionals command, and 
are desperately searching for ONE publication which YOU and the members of your family 
can turn to for solutions to your home computer problems. Softside is the answer. Every 
month in the pages of Softside you get facts, figures, advice and counsel targeted to your 
home computer needs, in a way that your entire family, from student to working parent, will 
fully follow and understand. Contained within the pages of Softside will be software listings 
for your TRS-80, Apple and Atari, ready to be entered. 

In a moment I will explain how you and your family can try out Softside and judge its value 
for yourselves, at a discount of 37V2% off the regular price - and at our risk. However, before 
I give you additional information about the charter subscription, let me tell you more about 
Softside. 

To be frank, the magazine grew out of our own frustrations with running a small but rapidly 
expanding publishing company. My associates and I searched the "big business publications" 
in vain for articles that were written with the home computer user in mind. We then turned to 
several of the more recent entries into the microcomputing magazine field, but to no avail. In 
almost all of these publications we were unable to find consistency in their editorial direction. 
What had begun as magazines for business. . .home. . .fun, in no time turned into publications 
crammed with page after page of boring advertisements and, too often, high level articles 
describing sophisticated procedures, understood and appreciated only by an elite few. 

We talked to other people in microcomputing from all over the country. We took a survey. 
And the findings confirmed what we suspected: No single magazine was providing the kind of 
information in a consistent fashion which ALL home computer enthusiasts could fully follow 
and understand. 

So we decided to upgrade Softside. Our editorial people were instructors at universities 
such as California State and Northern Illinois, teaching computer science and mathematics. 
Other members came from publications such as Kilobaud Microcomputing, New Hampshire 
Profiles and Yankee Magazine, and a number of other trade and business publications. What 
they have in common is that all-too-rare combination - the ability to tackle timely topics and 
present them in an understandable fashion. 
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TSE began in the basement of our publisher's home. In those days we did everything 
from reviewing submissions, writing documentation, and duplicating cassettes, to licking 
envelopes. There was correspondence with the authors, telephoning, equipment problems, 
authors' contract negotiations and more and more envelopes which needed stamps. 

TSE explored the 'software' territory in those 'frontier days' carefully . . . scouting out 
only the very best, leaving the weaker pieces by the roadside. The number of submissions 
was increasing, and we had all that we could do to provide proper service for our 
customers. We decided then and there that we would publish only 'the' very finest 
software available and commit ourselves to a policy of 'selectivity' and strong customer service. 

Well, it worked .... Since those days in the basement we have grown from a Mom and 
Pop operation with a dozen software titles to a company with 40 employees and over 500 
titles. TSE distributes software for over 50 different vendors. We considered ourselves 
'pioneers,' and as such we learned many things about our business and about our 
customers. We've made mistakes . . . who hasn't, however, the two most important factors 
in our success have been a keen eye towards selecting good software and a commitment 
towards strong customer support. 

We think that you will profit from TSE's experiences and come to find a consistency in 
product selection and a mandate to continued customer service in the months and years ahead. 

William F. Gollan 
Marketing 



TheSoHware Exchange 

b S(xith9n'('t,B()x(^,Milk)rd,NH()i()5''^ W)J-67J-'5744 



r«? •■ 



» •—■ « 



w 






Satisfy your 

cravins for 
invasion 

Sames 







INVASION 




Now you can continue to play this popular arcade game even 
after you run out of quarters! Shoot down the invading aliens, 
but protect your guns from their bombs. 

Great sound and graphics. (Sound requires external amplifier.' 

16K Level II cassette $9.95 (plus $1 shipping) 
32K Disk $14.95 (plus $1 shipping) 





seRsatioRal 
software 

SUPER INVASION 

Fifty-five aliens advance and shower you with lethal, writhing electric worms. As you pick off the 
aliens one by one, they quicken their descent. They whiz across the screen, wearing away the 
parapets which are your only defense, coming closer and closer to your level. SUPER INVASION is 
the original invasion game with the original moon creatures. 

32K Apple II cassette $19.95 (plus $1 shipping) 

The SoHwi^te Exchange 



6 Soulh SI-. Millord, NH 03055 (603) 673 5144 

ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 
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EDITORIAL 



by Mark Pelczarski 




As summer dwindles into fall I 
find myself faced with the 
possibility of going to a few 
computer shows, representing 
SoftSide . I've been to a computer 
show before. Once. It was a 
somewhat unique experience. The 
closest thing I can compare it to is 
standing in the center of a 
shopping mall on the day after 
Thanksgiving. Not that it was all 
that bad. In fact, it was probably 
more like standing in a toy store in 
a mall on that day. 

1 haven't been to a show with 
SoftSide yet. Since 1 made my 
merry way out here from Illinois in 
May, things have been moving 
quite quickly. First there was 
gathering of the various pieces of 
SoftSide 's Apple version and trying 
to assemble a magazine for the first 
time. Then we sat down and 
planned "Super SoftSide," as we 
called the new, large format. Now 
that's reality, and although we're 
still working on improvements, we 
have rounded out the editorial 
content with some new columns, 
and the program documentation 
has gotten better. Let us know if 
you have any comments or 
suggestions, as we value your 
input. 

Anyway, with the magazine 
reaching a more stable level and at 
least becoming less hectic, it's 
probably time to broaden horizons 
and take in a couple of computer 
shows — from the other side. 

1 can't see approaching shows as 
media events, as some others do, 
so don't expect any lengthy "show 
reports." I am however, looking 
forward to some personal contact 
with some of our readers, and 
others in the profession. As a 
teacher, one becomes accustomed 
to face to face contact and a lot of 
feedback. Not so with editing. You 
learn to talk on the phone a lot 
and hope that things you write 
make sense to unseen readers. 

The computer show 1 attended a 
few years ago in Chicago did leave 
some definite impressions. 1 
remember the room. People were 
crowded around the booths from 
which the most interesting sounds 
emanated. Speech synthesizers were 



making big breakthroughs that 
year and those booths seemed the 
most popular. Some nice computer 
music systems were on display. The 
main competition was whose booth 
could draw the biggest crowd with 
the flashiest computer game. 
Droves of people floated from one 
booth to another waiting for the 
ultimate dazzle. Some poor fellow 
was selling modems in an end aisle. 
He had some wonderful spec 
sheets, but what could you say to 
him? "Yep, sure looks like you 
could plug a telephone right into 
that thar thing . . ." Actually, the 
whole show was sort of like that. 

"Yep, by gosh, those sure are 
computers. Look at all them fancy 
boxes . . ." Some had flashier 
displays than others, but when we 
finally retreated, the fact sheets all 
looked very similar. It was kind of 
Uke the shopping bag full of 
material you can accumulate at 
auto shows. The only real feeling 
in the aftermath was upon arriving 
home to the TRS-80 I had at the 
time. I walked right up to it, 
looked sadly at the lack of boxes 
hooked into it, and admonished, 
"Why can't you talk? Well, come 
on, say something . . . Play a tune, 
go ahead! And how much memory 
do you have? 16K? Huh! I just saw 
one with four times as much . . . 
and a hard disk to boot! How 
about color? Do you have that? 

Noooo. . ." The poor thing just sat 
there and took the abuse. It 
seemed so plain. 

Hope to see some of you at the 
shows. Stop and say hi. ^yL 

An Apple One Liner 

This One Liner is in Integer 
BASIC: 

1 GF; J FOR 0=1 TO 10000! COL0R= 

m (i6):x= RW) (39):y= rnd 

(39):Z= RND (39) t IF \<=X THEN 
^EXT Q: lilN X,Y AT Z: VUN 
X,Y AT Z: NEXT QJ END 

Matthew Laurence 
Lincoln, Massachusetts 



ONE LINERS 



Scattered throughout the pages 
of this issue, you will find some 
very short programs called "One- 
Liners". You can contribute to this 
department by following three rules 
and sending your contribution to: 



NOTE: Our Amazing Art Room 
Cuties are currently creating the 
coveted "One-Liner Award" to be 
presented to all past, present, and 
future authors who have their One- 
Liners published. Be the first on your 
block to win one! 



S-80 

Atari 

Apple 



(pick one) 



THE NAME 
OF THE GAME 



ONE-LINERS 

c/o SoftSide Magazine 

6 South Street 

Milford, New Hampshire 03055 

RULES: 

1) The program must be 
written as a single line of BASIC. 

2) The program must be self- 
contained. Make no assumptions 
about DIMensions, available string 
space, current graphics mode, etc. 

3) The program should 
provide a continuously changing 
graphics display, as impressive as 
possible. 



Give a computer some numbers 
to sort and it's computer heaven. 
Give it some names to deal with 
and things can get a bit messy. 
Anyone who has watched a 
computer spew out address labels 
should have some idea of what I 
am talking about. For some reason 
(no, I don't need to have it 
explained to me) computers don't 
know how to read a list of names 
and understand them the way we 
ambulatory types do. Instead, the 
computer goes for what looks right 
to it. The results can often be 
confusing, and just as frequently 



hilarious. One friend of ours, the 
fourth in a long line of 
MacFarlanes, recently received his 
first computer-generated form 
letter, addressed to William 
MacFarlane IV. It began: 

"Dear Mr. Iv..." 

Another friend of ours, a bank 
teller by profession, ran across a 
computer-written sweepstakes offer 
while working for the Wells Fargo 
Bank. It read: 



"Could $50,000 change your life, 
Mr. W.F. Bank?" 



Get the idea? Here at SoftSide 
we know that these two instances 
of computer name-mangling are 
not isolated occurrences. We also 
had a good laugh recalling them. 
Not being the laugh-miser types, 
we thought we would share them 
with you, our readers, and see if 
you had any similar tales to 
recount. If you have, write to us 
and tell us about them. We'll 
publish them somewhere between 
the covers and let everyone in on 
the fun. 



FROM STRATEGIC SIMULATIONS 



Sink the Bismarck! 

Historic wargaming may be the only intellectual hobby which creates 

more intensely devoted fanatics than home computing. When two 

wargamers spend an evening refighting a famous battle, they'll spend 

several hours happily setting up the gameboard, firepower 

charts, unit strength tables and so forth . . . all before the first 

shot can be fired! There are such paper and pencil 

simulations of every famous battle from Shiloh to El 

Alamem. If you've ever tried one. you already know the 

excitement and challenge of trying to be a better general 

than Rommel. 
If you've got an Apple II Plus (or an Apple II with 
Applesoft Firmware ROM Card) with 48K memory and a 
5 1/4" mini floppy disk drive, you can be playing 
Computer Bismark in a few days. For $59.95, you get the 
game program disc, 2 mapboard charts (for plotting 
secret strategies in grease pencil between moves), 2 ship 
data charts, 2 system command cards, a loading 
instruction sheet, and a rulebook $59 95 

^ Computer Bismarck is also available for the TRS 80 
Level II on cassette for $59.95 




Ambush! 



Computer controlled mapboard of a typical 

French village. 

Step-by-step computer regulated play. 

Extensive line of sight rules providing for 

hidden movement. 

Each soldier individually rated for strength, 

intelligence, dexterity, and marksmanship 

Realistic weapons, characteristics, and 

explosives. 

Sophisticated movement rules permitting 

running, walking, crawling, dodging, and 

sneaking. 

Simultaneous execution of orders. 

Ability to save a game in progress and restart 

it at a later date. 

Playing time 1 to 5 hours. 48K Machine 

Language - Disk $59.95 
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Dear SoftSide , 

In this season of "equal time" I 
guess it was bound to happen. And 
all this time I thought an apple was 
something you made into a pie, or 
sauce, or butter. Until I looked at 
the cover I thought someone had 
slipped me a Kilobaud. 

All seriousness aside, the August 
issue looks great and I am sure 
that once the intial shocks wears 
off, most of the readers will agree. 
There are probably some Appleists 
out there who have never heard of 
a TRS-80 either. You do mail to 
Outer Mongolia, don't you? 

Here are a couple of items which 
you or the readers might find of 
interest. 

Take Rich Bouchard's great little 
One-Liner from page 24, and 
assign line # 100 to it. Put a REM 
statement at line # 10, and run the 
resulting program with BREAK 
and then SHIFT ENTER ( the T- 
Short command for GOTO 10). 
The four set points will now 
reappear on the screen in the 
position they occupied when you 
completed the previous design. 

Now granted, you no longer 
have a nifty one-line program. But 
you do have a more flexible format 
for creative design. It simply takes 
a fun program and adds to the 
interest. 

Last spring 1 purchased a TC-8 
cassette interface (before the price 
increase) and enjoy using it. But all 
the plugging and unplugging gets 
to be a hassle. A visit to the local 
SHACK and a word of prayer with 
the resident computerist provided 
me with the necessary parts and 
technical data to build an interface 
for my interface, if you know what 
I mean. Now, everything stays 
plugged in and is controlled with 
two switches. If you think there 
would be enough interest in such a 
concoction, let me know and I'll 
detail it out for you. 

By the way, I need someone in 
your office to check out something 
for me. The other night, after 
reading James Garon's 
OUTGOING MAIL article, I had 
a dream. Seems that some dude in 
a cape, with a neon B on his chest, 
goes running up and down the 
town's sewer excavations looking 
6 



for dragons or treasure or 
somesuch. If someone on your staff 
will check this out with the local 
newspaper or police department 
and confirm the report, then I can 
get my "Resident Psychic" 
certificate. 

Best Wishes, 
Jeff Briner 
Hickory, NC 
P.S. The above modifications 
to Rich's program will also work 
with IRV if you reprogram one of 
the keys to read "GOTO 10 
(ENTER)" 

Mr. Garon: 

As I mentioned in the enclosed 
reader survey, the most useful 
service that SoftSide could 
perform, in my estimation, is the 
reviewing and criticism of new 
software, specifically games and 
simulations. The most important 
single piece of information that 
could and should be provided in a 
game review is: 

Can the game be "solved? "If so, 
how long (in playing hours) will 
such solution take? (One assumes 
that players have the good taste 
not to peek at the code.) And 
finally, does the solution make 
sense, given the precept of the 
game? 

For example: I played TAl-PAN 
once before I realized 1 was up 
against a random-number 
generator, not a simulation (any 
game which rewards buying silk in 
the Phillippines and selling it in 
China cannot, by any stretch of the 
imagination, be called a 
simulation). Armed with this 
knowledge, 1 wiped out the game: 
a human can always beat a 
random-number generator, once 
you get a basic idea of the range of 
the generator. 

I'm a wargamer from way back, 
and there exist wargames with 
primitive graphics, laughably 
simple resolution systems, and 
abundant illogic, but those games 
are still played - because they 
cannot be solved for one side or 
another. How many computer 
"simulations" will be around as 
long? 

A basic property of a good 
computer game, then, is resistance 



to solution. The ADVENTURE 
type games are one attempt to 
resist solution - the basic idea in 
these games is that there is a 
solution, but that solution is 
hidden within a puzzle-box of 
puzzles. ADVENTURE type games 
are very entertaining until they are 
"crashed" - but the essential point 
is this: A player can and will find 
out everything there is to know 
about the puzzle, whereupon it will 
become boring. True, that might be 
a looong time, which will give the 
owner of the game ample value for 
his investment, but it is inevitable. 

The only unsolveble games, 
though, are those where the player 
does not play the computer's 
program, but rather uses the 
program as a vehicle to play 
against another HUMAN 
opponent. Such games are 
insoluble (usually, unless very 
poorly written) because it is never 
entirely certain what a human 
opponent will do: a human 
opponent will vary his strategy 
(very tough for a program) as well 
has his move-by-move tactics 
(easier, though by no means easy, 
for a program) in unexpected ways 
so that any game not irreversibly 
tilted towards one side will never 
be a sure thing for either side. 

Potkin's KRIEGSPIEL is an 
excellent example of an insoluble 
game of infinite variety. It has all 
of the trappings of a "wargame," 
right down to a hexagonal grid for 
movement, but it has to be the 
most simplistic wargame I have 
ever seen. Game publishers GIVE 
away much more complex games 
as advertising come-ons. Yet, 
KRIEGSPIEL is one of the best 
computer games in existence, 
simply because it cannot be solved. 
A person playing KRIEGSPIEL is 
playing a game against another 
person, who cannot be predicted 
with accuracy. The computer is 
used simply to keep track of what 
is going on, and to ajudicate and 
administer the rules ol the game. 

There are other good games in 
existence: GALACTIC 
REVOLUTION, for instance 
(though GR is, perhaps, too 
complicated, which causes it to 
drag and limp from move to 



move), but the software reviews I 
have read all seem to miss the 
point about games. 

Until recently, the writers of 
computer games were, evidently, 
excellent programmers but knew 
little about games; it is time, 1 
think, that software reviewers catch 
up. As a game player, 1 couldn't 
care less about elegant 
programming techniques or flashy 
displays, unless those frills made a 
better game. 

So how about it - have you got a 
gamer up there who can compare 
the latest computer game to his 
favorite wargame? If so, get his 
opinion, and let the rest of us 
know what it is. 

Thank you - 
Wesley D. Ives 
Raleigh, NC 

Dear Mr. Garon 

Congratulations on the "new" 
SoftSide! You have now taken the 
first step in becoming the best 
maga/ine for small computer users 
going. 

1 found the addition of many 
instructive articles the best new 
feature, although 1 had problems 
getting my machine (a TRS-80) to 
produce sound. 

Your article on the VARPTR 
function was very interesting and 
informative. The manual that came 
with my computer only touched on 
what it does, rather than what you 
can do with it. 

Reading that article prompted 
me to do some experimenting of 
my own. I keyed the "One-Liner" 
from the August issue (an excellent 
piece of programming) as well as 
your routine to transfer the screen 
to the array, TS. To this 
combination 1 added: 



1100 FOR I=C 


TO 


4 r 


PRINT *-l 


T$(I; 


:next: 


GOTO 












3000 FOR 1=0 




15 


LNF'UT ♦-! 


,T»(I) 


;t€XT 


2060[ GOTO 1 













CLEAR 


2oio:dim t${j 


5):t$="":input 


"DRAW 


(1) 


OR READ 


(2,' picture 


";a$:if 


Ai= 


"2* THEfl 


3900 ELSE CLS 



I then deleted the LLS: in line 
one as well as your line 1000 so as 
to avoid a BS error that would 
have been created by the CLEAR 
statement. (1 changed the DIM 
statement to line so that you 
could read the tape without yet a 
third DIMensioning of T$.) 

Another change I made in your 
work was to renumber the printing 
routine by adding a to the end of 
each line number. I added the 
following lines myselL: 



These lines save a picture, and 
when a picture is read using line 
3000, allow you to add and save 
more of the same picture. 
Pass it on. 
Matt Rosenberg 
Dobbs Ferry, NY 

Gentlemen: 

First, 1 would like to 
congratulate you for your excellent 
magazine. A friend of mine had 
one and I borrowed it, after 
keyboarding in all the programs, I 
went to a computer store and 
bought another. 1 have since 
decided to subscribe to your 
magazine and not buy any software 
from Radio Shack, which costs 
more than it's worth. Besides, I can 
get about $18 worth of Radio 
Shack software in only one issue. 
So 1 am enclosing a subscription 
form. 

However, there is one thing that 
you can do to make your magazine 
even better. 1 am a fairly decent 
typist, but 1 always make a few 
mistakes keyboarding a program 
in. Then 1 come to the hard part, 
debugging. I can usually correct 
my own mistakes, since 1 know 
that I have a tendency not to press 
the shift key when I type a left 
parenthesis, or that 1 sometimes 
type in an O for zero. 1 don't have 
any problems with my mistakes but 
with yours! In a program as long 
as Star Trek 3.4 it is very hard to 
find typos committed by your 
typist. Even in a short program 
such as Isolate or Numbagels there 
are mistakes. 1 have since learned 
that your typist constantly types 
RO for OR and is not so good at 
keeping variables and strings 
straight. I have only had my Level 
11 TRS-80 for two months and 
have problems correcting mistakes 
involving more complicated 
procedures. If possible, why don't 
you type two different copies of a 
program and compare them, 
correcting any differences. Since 
two different typists won't make 
the same mistake on a line, it 
would improve the accuracy of the 
program printed in the magazine. 
Think about it. 

Sincerely yours. 
Barton P. Scott 



Dear Barton. 

Glad to hear you like the 
magazine, hut what we'd really like 
to know is Just who is ''our typist!" 
To the best of our knowledge, 
there is no such person. When a 
progratn is published in SoftSide 
we simply load a correctly working 
version into the proper computer 
and then have the computer list it 
on the lineprinter. From whom did 
you ''learn" about our mythical 
typist's bad habits'] Whatever el.se 
this person may tell you in the 
future, take it with a grain of salt] 

Dear Sir. 

In your July issue Sherry Taylor 
points out a super simple 
alternative to Ed Ting's "Super 
Simple Sound Interface for the 
TRS-80," but why waste a perfectly 
good blank tape (unless you 
happen to want to listen to the 
beeps, and sounds of your last 
game of Micro Pinball)? Just push 
the little button on the left-back 
side in the tape compartment and, 
at the same time, press Play and 
Record. 

Thank you, 

Tim Irvin 
Asheville, NC 

Dear M.P. 

I would like permission to use 
the hex data load routine used in 
INVADERS (pg. 44, May, 1980) 
and MAGIC PAINTBRUSH (pg. 
48 June, 1980) for use in my 
programs probably some sent to 
SoftSide. I am developing a few 
programs, games, and utilities to 
send in. 

1 am going to scream if 1 don't 
get my August issue soon. It seems 
overdue. 

Did you have MAGIC 
PAINTBRUSH named with your 
initials on purpose? Keep up the 
good work!!! 

Apple-ly yours, 
Daniel Wood 
Oregon House, California 
There's no problem with using 
the he.x routines. Many of the 
routines we use are faily standard 
programming tricks. One of our 
goals with the new SoftSide is to 
pass along these techniques in 
addition to the programs: hence 
the added documentation. So feel 
free to use ideas you find in 
SoftSide programs. That's their 
purpose. 

The initials in Magic Paintbrush 
were inadvertent. Actually, .several 

continued on next page 



continued from previous page 

people have asked if the "MP" in 
MP Software stands for Magic 
Paintbrush or Mark Pelczarski. It's 
actually Magnificent Penguin. 
-MP 




Gentlepersons, 

I rarely write to a business, 
much less a publisher, but an event 
now justifies my doing so. 

Yesterday, 1 received my first 
copy of the combined SoftSide. I 
was in the least, shocked, at the 
extreme, 1 felt ripped off. 

When I first subscribed to 
SoftSide, I got what 1 wanted. A 
publication for Apple; about 
Apple; by Apple owners; and 
exclusively Apple. Even when the 
name changed to SoftSide - Apple 
Edition, I was not upset. Not even 
worried. But yesterday my faith in 
another industry was blown to 
smithereens. 

On your open editorial, on page 
4, 1 wish to reply, not to specifics, 
but to the entire thing. The 
original, and earliest editions of 
your Apple-oriented publication 
were published with editorial 
comment and advertising aimed at 
a specific audience: the Apple 
owner and users. The magazine 
was published with the evident 
intent of supplying Apple owners 
with Apple-oriented material 
without having to sift through tons 
and reams of other material. 
Dozens of other magazines had 
material for just about any 
machine you could name, but only 
one was specific. Only one had 
enough class to specialize. 
SoftSide. Now you have gone and 
done it. After 1 went and cancelled, 
or allowed to run out subscriptions 
to five other magazines, because 1 
had found a source for Apple 
material, that did not need a search 
like the one for the Holy Grail to 
uncover the entire article. You 
have chosen the publisher's cop-out. 
The easy escape. The change that 
portrays cheapness. The inevitable 
worship of the dollar sign. My 
quest for the honest man is now 
over. I am now in the market for a 
reasonable facsimile or a decent 
fantasy of a real person doing a 
real thing. As to your cop-out, I 
guess that it could be expected. 
The might of the S$ (I don't mean 
a string variable, either!) and the 
8 



greed in man that it excites has 
become apparent, again. It began 
in pre-historic times, with one cave 
man trading his dino-rabbit for a 
handful of pretty rocks. But back 
to you. You have evidently found 
that it is cheaper to print one large 
format, 95-page magazine, and 
satisfy a few readers, than it is to 
publish a magazine that will satisfy 
all who choose to subscribe. An 
additional note. It seems that you 
too, are succumbing to the pressure 
of the giant with the most money. 
To do so again confirms my belief 
that worship of the $S reigns 
supreme. It seems that Tandy is 
soon going to own the world. They 
have more money to spend on 
advertising and they really take 
advantage of it. They are 
completely dominating the 
microsoftware market. It seems 
that they (Tandy) must be able to 
provide their own support and 
distribution for software. It seeems 
that IBM does rather well and 
Tandy must be approaching the 
volume of sales that IBM has in 
the computer market. 1 really get 
tired of hearing about the 
"Immortal Trash 80." Now you 
seem to devote the majority of 
your magazine to it. 

Now for a return to a previous 
complaint. You as a publisher may 
know the reason, but 1 can't seem 
to figure it. 

Why do you now start an article 
or a listing on one page, and then 
jump (unconditional, no return) to 
the back of the magazine ,or at 
least as far away as possible to 
make it hard to follow? Is there an 
unwritten law that says you cannot 
complete an article before adding 
advertisement? At times you do not 
even add advertisement, you just 
go right into another article. You 
haven't done that in the past. Did 
you do this because of the Great 
American $$? 

1 don't know. I really don't, 1 
probably will not renew my 
subscription. 1 probably will sell 
my Apple, since my frustration has 
become complete. Have you any 
suggestions? Are you really human 
or are you just a defective chip in a 
memory somewhere? Are there any 
human beings left out there? 1 fear 
that I am the last human that is 
not part of the great media 
controlled mind. I hope that the 
individual is not lost. 

From a human being, 

Brian L. Thompson 
Alexandria, La. 



Since the August issue hit the 
stands we've had many letters and 
phone calls, some expressing 
delight over the new format, and 
others expressing disappointment 
over the changes. Although it's 
gratifying to hear the praise, it's 
also of concern to us that we've 
disappointed some of our long-time 
readers. We'd like to respond to 
some of the criticism we've 
received. 

The complaints about the new 
format we've heard most frequently 
are from Apple readers concerning 
the TRaSh, and from TRS-80 
readers about the rotten Apples. 
(Surprisingly, not many people 
have complained about the 
inclusion of the Atari material). 
We must confess that that was one 
of our greatest concerns in 
combining the editions, but we've 
taken extreme care in trying to 
keep the overall level of quality for 
each machine at previous 
standards. True, there may 
occasionally be one less program 
for a given system, but we've 
increased our budget and the 
actual quality of the programs you 
receive has risen considerably. It 
will continue to do so. Remember 
also that expectations are rising. 
To a large extent, we have created 
this, particularly in the TRS-8() 
market. Most authors of the TRS- 
80 games in BASIC subscribe to 
and learn from SoftSide. We 
pioneered in high speed graphics, 
sound routines, animations, and 
many other features commonly 
found in games today, and 
explained how to do them in the 
magazine. As a new technique 
comes along, we are careful to get 
the word out as quicky as possible. 

We intend to maintain our 
leadership in this area, and increase 
our quality for every computer we 
support. We always pass along the 
best of what we get. 

We have no intention of making 
SoftSide a general (lack of.') 
interest magazine. It is about 
software for specific computers. 
We've devoted a lot of staff time to 
making programs understandable 
so that you can actually get a feel 
for how they work. The former 
philosophy of SoftSide has been 
"Type them in and they'll work." 
Now we're trying to stress that, in 
addition to good programs, we can 
help you to learn techniques from 
other programmers to aid you in 
becoming a better programmer 

yourself. We're trying to provide 

continued on page 10 




NEWDOS/80 



Brand new from Apparat, their most powerful DOS ever. EVERYTHING in NEWDOS and 
NEWDOS+ and more: Variable length records (up to 4095 bytes), mix or match your disk drives: 35, 
40 and 77 track drives can be used in any combination — even with 8 inch drives, new security 
boot-up sequence makes it impossible for the unauthorized to BREAK or LIST. "DOS READY" and 
"READY" need never appear, enhanced RENUMBER allows relocation of subroutines, powerful 
program CHAINing, option to PRINT on display and printer simultaneously, execute DOS commands 
— from DOS — without disturbing your resident BASIC program. Put the "DOS of the Eighties" to 
work for you. On disk, with all documentation. $149.00 



NEWDOS 



NEWDOS corrects over 70 errors and omissions in TRSDOS 2.1 and disk BASIC, yet they are 
completely compatible! Programs SAVEd under either system need no modification to work with 
the other. Like going from Level I to Level II: more power, convenience and speed. Use all DOS 
commands (DIR, FREE, RENAME, COPY etc.) from BASIC, AUTO LOAD and RUN a BASIC 
program from power-up, produce variable and constant cross reference tables, OPEN "E" to add to 
the end of a sequential file, send whatever is on the screen to your printer, even in DOS (great for 
DIR), renumber BASIC programs, and more . . . Fully documented; available on disk for only 
$49.95 



NEWDOS PLUS 



ALL of the above PLUS; Editor/Assembler for disk, Z-80 Disassembler, LMOFFSET to relocate 
and save SYSTEM tapes to disk, Level I BASIC language with disk I/O, DIRCHECK to check and 
LIST disk directory, SUPERZAP-display/print/modify any location in RAM or on disk (worth the 
price of the entire package when you resurrect that accidentally KILLed file!). NEWDOS+ on disk 
with documentation, just $99.95 



The SoAitare Exchange 

6 South SI.. Milford. NH 03055 

ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 
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continued from page 8 

more depth. We've made 
agreements with several top 
programmers who'll be joining us 
in future issues to write columns 
about programming. We want to 
tell you how, not just slap it down 
and say: "Here it is." 

The reason for combining the 
SoffSides was partially financial, 
but it was far from groping for the 
almighty dollar, as some of our 
critics have charged. We would be 
happy just making five cents a 
copy. To put together the kind of 
quality we wanted in separate 
editions would have involved a lot 
of expense and duplication of 
effort. Our art and production staff 
was down to producing one 
magazine a week. With deadlines 
that close, it's difficult to devote as 
much care to quality as we would 
like. Sponsoring magazines for new 
computers, such as the Atari, 
would have drained our resources 
even more. 

We're not getting rich from this 
business, not even our publisher. 
Most of us could increase our 
salaries in industry and work 
shorter hours. We know - we've 
had offers. We are not a huge, 
money-grubbing conglomerate. 
We're basically hobbyists who 
enjoy what we're doing. We get to 
use the newest equipment and 
software, and to share our 
experiences with those of you who 
may or may not be computer 
professionals. Although the real 
money is in the business market, 
we're not at all ashamed to say 
that we're more interested in 
computers as a hobby. 

As we do grow, and become 
more profitable, (and we sure hope 
that happens), we intend to share 
that bounty with you by publishing 
more material and paying our 
authors more for better programs 
and articles. That is as much in 
your interest as it is in ours. 

As for the magazine itself, we 
figure that content, due to the 
larger format, has approximately 
tripled. To begin with, the pages 
are twice as large as the old ones. 
Less margin space is wasted with 
the larger format and on top of 
that, the magazine itself is longer. 



For those of you who have 
complained about the dominance 
of TRS-80 material, keep in mind 
that the new SoftSide was 

To 



combined from SoftSide: S-80, 
SoftSide: Apple, an unreleased 
SoftSide: Atari, plus Prog-80, a 
more technical TRS-80 publication. 
We intend to expand our technical 
coverage of Apple and Atari, but 
due to the existence of PROG-80 
we already had a wealth of 
material available, hence the initial 
imbalance. If you subscribed to 
more than one of those four 
publications, your subscription will 
be extended accordingly. For those 
of you who claim to have less than 
before for your computer, look at 
each magazine's content and you'll 
find that any machine's specific 
articles, combined with "general" 
articles — those written with each 
machine we support in mind — 
provide more than could ever have 
fit in the smaller editions and you 
also get the programs and articles 
written for other computers, 
documented to the extent that 
converting them is a real 
possibility. 

The last complaint has been 
specifically from Apple readers 
who've seen the listings go from 
blurry to large and clean, to smaller 
but still clean. Our S-80 readers will 
agree that we've occasionally had 
very poor results from the printer 
with which we made our listings. In 
the July Apple edition we 
experimented with a letter quality 
Spinwriter. Unfortunately, because 
of the size, we were faced with the 
distinct possibility of cutting down 
the amount of software we could 
offer to make room for the larger 
listings. We tried shrinking them 
slightly, but they reduced both 
vertically and horizontally, making 
them unreadable. Faced with the 
decision of less software, even if the 
old format magazine had been kept, 
we started experimenting with other 
printers again and came upon the 
Centronics 737 we now use. It's a 
high-density dot matrix printer that 
allows us to condense the print 
horizontally without reducing the 
vertical dimension. We've been 
pleased with the results, but of course 
we'll always be looking for better 
options. 

We thank all of you for your 
feedback, positive or negative. 
You, our readers, have always been 
an uncommonly responsive group, 
as proven by the percentage of 
returns from past reader surveys. 
Your input is invaluable in shaping 
SoftSide and its future, and we do 
listen. We hope you'll help us to 
make SoftSide the best computer 



magazine avaiable. 

Sincerely, 

Roger Robitaille 
George Blank 
Mark Pelczarski 
.James Garon 



Attention 
Authors and Prospective Authors 

SoftSide is actively seeking 
program and article submissions. 
Here's your chance to make some 
extra money and become famous'. 
When sending submissions, be sure 
all letters, articles, and 
documentation are typewritten and 
double-spaced. All programs 
should be submitted on a good 
cassette or disk. 
Send to: 

Softside Publications 
Submissions Department 
6 South St. 
Milford, N.H. 03055 
Send for our free Author's 
Guide. 

Special note to programmers: 

Please avoid the use of the letter 
"O" and the number "0" in variable 
names where they may cause some 
confusion. We don't use the slash-0 
in our listings because it has caused 
more problems with "8"s than the 
regular zero does with the letter 
"O". Thank you. 



Well, we did it again. Sorry this 
issue's late. As you can already see, 
we've gone to a new printer, and 
sometimes you just have to go by 
someone else's schedule. The next 
issue should be back on schedule. 
Hope you like the look. 

This is the second anniversary 
issue of SoftSide. The first issue of 
SoftSide for the S-80 appeared in 
October, 1978. Since then we've 
published well over 100 first rate 
programs. We hope you'll continue 
to make SoftSide a success, and 
that you'll all help us bring new 
ideas to computing. 



Finally, we'd like to welcome 
Scott Adams to our pages with his 
column, "Say YOHO." 



The Lazy Man's 
Shortcut to 

Machine Languase! 




Tiny Comp. 



by David Bohlke 



A BASIC Compiler in BASIC! Run your source program in BASIC, 
compile it into FAST Z-80 Code and execute the compiled version — all 
without reloading. 26 integer variables, GOTO, GOSUB, END, REM, RND, 
LET, +, *, /, IF, THEN,<, =,>, INKEY$, CLS, PRINT@, CHR$, PEEK, 
POKE, Compiled programs may be saved via TAPEDISK. 

Supplied with game program, "3D TIC TAC TOE", which uses all of the 
TINY COMP statement set and is ready to compile. 

Manual includes several sample programs as well as thorough 
documentation of the Compiler for those who like to know "how things 
work" and for those who might even wish to EXPAND on TINY COMP's 
capabilities. 
Tape version: $19.95 
Disk version: $24.95 

The Software Exchange 

b SauthStP(f't.B(>x(-,8.Milk)n:l,NH OJCm H)i-b7i-'i144 
ORDER TOLL FREE: (in NH call 673-5144) 

1-800-258-1790 
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SOFTSIDE: S-80 EDITION 

*+ November 1978 End Zone, Level I or Level II 
Conversion article, Trolls Gold, Shopping List, Octal to 
Hex. 

*+ December 1978 Santa Paravia, Biorhythms, Mor- 
tgage Calculation, Spelling Bee, Chess Clock. 

January 1979 Round the Horn, Ten Pin, Bovi/ling, 
Kiddy Slot, Computa Sketch, Writing Game Articles. 

February 1979 Income Tax Program, Concentration, 
Elements Quiz. 

March 1979Tarot, Metric/English conversion. Jig Saw, 
Fog Index, Dive Bomb, Personal Finance Part 1. 

April 1979 Safari, Personal Finance Part 2, Don't It 
Make My Brown Eyes Blue, Rabbits and Foxes, Spring 
Flowers. 

May 1979 Dog Star Adventure, Awari, Letter Crunch, 
Math Drill, Super Sub. 

June 1979 Atlantic Balloon Crossing, Nim, German 
Word Quiz, Appliance Record System, Entrapment. 

July 1979 All Star Baseball, Yahtzee, Tank, Spelling 
Bee, Collision. 

August 1979 Melt Down, Shooting Gallery, Story 
Book, Code Tutor, Cryptogram. 

September 1979 Engineer, Treasure Dungeon, 
Hangman, Pyramids. 

October 1979 Westward 1847, Battleship, Reaction 
Time Indicators, What Kind of Word? 

December 1979 Oil Baron, Drag Race, Christmas 
Show and Tell, Index to Level II Manual, Towers of 
Hanoi, Slalom. 

January 1980 Moving Maze, Dante's Inferno, Bomber, 
Reflection, Duck Hunter. 

February 1980 Deadstick, Backgammon, Parachute, 
Play It Again Sam, Deep Six. 

March 1980 Broadway, System Emulator, Line Four, 
Add, Sonic Torpedo. 

May 1980 Star Trek III, Encounter in the Near Tholian 
Sector, Day of the Week. 
This Issue Only: 

Magazine $5.95 

with cassette $14.95 

with diskette $19.95 

June 1980 MicroMillionaire, Galaxy Combat, Num- 
bagels. Simple Sound Interface. 

July 1980 Adventure Builder, Adventure Interpreter, 
Lost Dutchman's Gold, Pinball. 



PROG/80 

PROG/80 The magazine for serious Programmers of the 
S-80 Computers. 



May 1979 Boomer Box, Clock Routines, Rescue, Scat- 
tergram/Correlatin, ROM Keyboard Routines, Super 
Graphics without Disk, Super Graphics Aid, 
SQUISH/BAS, INIT. 

July 1979 Sound Subroutines, Machine Language 
Video, High Density Data Storage, Histograph and Basic 
Statistics, Talking Banko, Plot, Cassette Controller, 
TRS-80 Music. 

September 1979 DOS, Kids Stuff, Disk BASIC, 
Renumber, Squish 2, Data and Time Routine. 

December 1979 Pascal Review, Which Language?, 
Devices, Hex/Decimal Conversion, DIM Statements 
Variable Uniqueness, Computer Telephone Dialer, 
Preference Poll, Reviews of Model II, Macrotronics, 
M-80, and Exatron Stringy Floppy. 

February 1980 The Source, Timesharing, Tool, Pro- 
gram Write Protection, NAME, SuperZap Review, Hex- 
Mem Monitor, High Speed String Handling, CTR-41 
Modifications. 

April 1980 Level II Keyboard Redefinition, Writing 
System Tapes, Voice Synthesizer Lab, BASIC File 
Utility, Devices (2), First Time on the Source, Forum 80. 
Repeatable Randomness, Zero Slash Killer, Proofread. 

June 1980 All Purpose Print Routine, Z-80 
Disassembler, Printer Terminal, Random Accessing 
Techniques, Form Letter, BASIC To Electric Pencil Con- 
version, New NEWDOS. Command-LOC(X), Branching 
Functions in APL80. 

August 1980 FORTRAN Subroutines, TRS-80 Program 
Storage and Useful Corollaries, Splat-An Introduction 
to Tiny Comp, Program Portability, VARLIST. 



''Cassette version not available 
+ Disk version not available 
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SOFTSIDE: APPLE EDITION 

* + January 1980 Dog Star Adventure, Reverse, Giant 
Clock, Trolls Gold, Loan Amortization. 

*+ February 1980 Supernim, State Capitals, Elemen- 
tary Math, Connection, Musical Scales Sort. 
*+ March 1980 Care and Feeding of Integer HI-RES, 
Renumber and Merge, Acey-Deucey, Treasure Hunt, 
Bouncing Ball Catctier, Switch Puzzle. 

* April 1980 Applesoft Ampersand, Shootout, Jigsaw 
Puzzle, Space War, Melody, Display Control Characters. 

* May 1980 Invaders, Small Marquee, Magic Cave, 
Black Box, Fifteen game, Hyperboloid. 

* June 1980 Dogfight, HI-RES Drawing, Dodger, ROM 
the Robot, A Hello Program. 

July 1980 Pork Barrel, NO MIS, ROM the Robot, 
LORES Printout, It's a Small World. 



SOFTSIDE 

The new SoftSide 



August 1980 Sailplane (S-80), Caribbean Cruising (Ap- 
ple), Master's Golf (Atari) ROM the Robot, Part III 
(Apple), Maze Search (Atari), Grand Prix (S-80), Concen- 
tration (Apple), Stratoblaster Outpost (Atari). 



September 1980 Goal (Apple), Stereo Generator 
(Apple), Concentration II (S-80), Barricade (Atari), Dr. 
Livingston, In Search of (S-80), Foosball (Apple), Lone 
Star Corral (S-80), Sleuth (Atari), Ricochet (Atari). 



"Cassette version not available 
+ Disk version not available 



back issues of: 
»^35(t5iae. : Apple 
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Programs, documentation 

and lots more! If you have missed 

out on any past issues, NOW'S THE TIME 

TO ORDER!!! 
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SoftSide, S-80 and Apple Back Issues: 

Magazine only $2.50 

Magazine with Cassette Programs, $9.95 

Magazine with Disk Programs, $14.95 

Prog/80 Back Issues: 

$4.00 (Includes First Class Postage) 



To order TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 



A- 



13 




MEW 




D^rp 




A¥s 



LslerCa^ p52M 



g* RACET COMPUTES -^ 



The Saitwate Exchange 

6 S(XJth Sirxx 't .Box 66, Milford, NH 03055 
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BASIC Link facilitv for the TRS-80 

Link from one BASIC program to another, saving all 
variables. 

BLINK allows the user to run one BASIC program, and then 
transfer control to another BASIC program without losing 
variables in memory by executing one single command. 

User can transfer all variables from one program to another. 
The new program can be either larger or smaller than the 
original program in memory. The chained program may either 
replace the original program or can be merged by statement 
number. The statement number where the chained program 
execution is to begin may be specified. 

A special loader program is provided to allow the user to 
position BLINK at any desired memory location. 

This small, but powerful utility simplifies the process of 
creating large programs. Programs can now be easily 
modularized for ease of programming and versatility. 

Model 1 (32K Idisk minimum). $25.00 




PERSONAL SOFrWA=iE INC. 



Financial analysis on a desktop computer 

DESKTOP PLAN is the software tool that makes it practical 
to develop your own customized strategic plan analysis, budget 
planning system, capital budget planning, cashflow planning, 
product pricing analysis, job development estimating, job cost 
estimating, profit and loss projections, manpower requirements 
planning, salary/labor cost planning, balance sheet projections, 
financial report preparation, make/buy analysis, and sales 
forecasting, without programming at a low one time cost. 

$99.95 




COLUMN CALCULATOE 4.1 

hy D.iuid r Guy 

COLUMN CALCULATOR is a 'word processor for 
numbers," a number processor designed to be used like a desk 
calculator. It is different than a calculator In that it can handle 
large blocks of information as if handling one number at a time. 
The work space can be thought of as a large matrix with rows 
and columns much like an accountant's spread-sheet. Each 
column or row can be labeled. The cursor can move around the 
worksheet . Data can be easily entered into the columns; and the 
columns can then be moved around. Columns can be overlaid 
from an existing data file on disk. One column can be added, 
subtracted, multiplied, divided, or raised to a power of another 
and the results put in another column. Columns can be 
compared to one another (if column A is greater than, less than, 
equal to, not equal tocolumn B, then put the contents of column 
C into column D). Columns can be totaled, or set with a 
constant, and any column can be sorted, carrying the rest of the 
columns with it. A predefined function (series of computations) 
can be defined, thereby pre programming the worksheet. Enter 
the data, execute the function, and print the results. The 
COLUMN CALCULATOR is an all purpose data manipulator. 

The statistical section provides analysis of the data. The 
analysis includes simple statistics (mean, median, mode and 
standard deviation), linear regression, simple correlation, 
histogram and the T-test. 

The information can be printed out on the line printer in a 
compressed format at any stage in the development of a data 
base. Thus, it can be used as a finished report or as a copy of the 
worksheet to permit the filling in of additional data for later entry 
into the data base. The data base can be saved on disk and 
recalled at a later date for modification or for generating a 
report . Any column in a file on disk can be referenced and added 
to the current worksheet. This is particularly useful for 
generating composite reports. 

All user communication with COLUMN CALCULATOR 
uses FLASH, the line input/editor routine. This enables the user 
to not only key in his instruction to COLUMN CALCULATOR, 
but to edit errors or data as well. 

By connecting an amplifier and speaker to the cassette aux 
output from the computer, the user can hear data entry 
feedback sounds which enable him to enter information Into his 
worksheet without constantly watching the screen taT si<.sy.a.l. 
feedback. 

Information may be reviewed at will by scrolling up, down, left 
or right, everything appears on the video display screen as it 
occurs, thereby eliminating guesswork. 

$32K disk $59.95 
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Hayden Book Company, Inc. 
§IMULAI10NS, 2nd Edition 

by c w En9ci Spccial AtaH Version 

An exciting handbook containing twelve "simulation 
programs," which are actually game programs. They include: 
Art Auction, Monster Chase, Lost Treasure. Gone Fishing, 
Space Flight, Starship Alpha, Forest Fire, Nautical Navigation, 
Business Management, Rare Birds, Diamond Thief, and The 
Devil's Dungeon. Clearly written in a BASIC format that is 
compatible with all microcomputers, they are all original and 
well-documented. Each program is presented with a listing, 
sample run, instruction, and program documentation, including 
flow chart and ideas for variations. 

$5.50 (plus $1.00 shipping charge) 

A CONSUMER'S GUIDE TO 
PERSONAL COMPUTING 
AND MICROCOMPUTERS 

bv Stephen Freiberger and Paul Chew 

Both an introduction to the principles of microcomputers that 
assumes no previous knowledge on the reader's part, and a 
review of 64 microcomputer products from over 50 
manufacturers. Other features include; extensive illustrations 
to reinforce the discussions: a selection and sources section to 
assist in reviewing, selecting, and purchasing microcomputer 
products; summary charts of major microcomputer products 
offering a quick summary of specifications for a given prcxluct; 
and comment sections covering the advantages, disadvantages, 
and best-buy tips for each microcomputer product 

$8.95 (plus $1 0(1 -hipp:'!.;; <h,nqt.i 

THE MIND APPLIANCE: 
HOME COMPUTER 
APPLICATIONS 

by T G Lewis 

Chock full of unique and challenging ideas for applying your 
computer to home use. Make your computer write poetry, 
balance a checkbook, dial a telephone automatically, handle 
household budgets, menu planning, shopping lists, and income 
tax calculations. Dozens of BASIC language programs, 
including: Buying for the Home; The Garage (Fundamentals of 
BASIC); The Living Room (Simple Retrieval); The Kitchen 
(Advanced Retrieval Systems); The Bedroom (Word, Text 
Processing); The Den (Business Processing); The Bathroom 
(Graphics); The Split Level Home (ideas); and a Glossary. 

$9.55 (plus $1.00 shipping charge) 



TEN EASY PIECES: 
CREATIVE PROGRAMMING 
FOR FUN AND PROFIT 

iiv i^<^n^ Sigdn ^ud Ciri Meyer. .Jr 

An introduction to the BASIC language through computer 
games. Written in an informal style, it stimulates interest in 
creative programming of games of chance and of skill. Teaching 
by example, these games illustrate the various programming 
• techniques at stages of difficulty which are suitable to almost 
unlimited modification, simplification, or amplification. 
Emphasis is on prompting creativity on the part of the reader. 
The text requires little knowledge of elementary mathematics. 
$7.95 (plus $1.00 shipping charge) 

VIRTUAL TECHNOLOGY, INC. 



Operating System Diskette with Operator's Guide 

Supports Large (8") drive. Double Sided drive. Double 
Density drive, 80 Track drive, and Winchester technology fixed 
drive. Supports double speed processor clock modifications. 

Features include: Improved overlay structure, General 
purpose output spoolers. Keyboard Type ahead. User 
definable keys. Built in Graphic string packer (lets user enter 
graphic symbols into a BASIC program from the keyboard 
through the use of the CLEAR key), Dated file. Marked files. File 
transfer by class. Built-in SYSTEM command containing lower 
case display driver, Non BREAKable AUTO and CHAIN 
commands. Wild card DIRectory (permits user to locate all files 
of a certain classification such as '- BAS'), ALLOCate command 
for pre-allocalion and non releasability of file space, and 
MEMORY command for directly setting upper memory limit. 

User may SYSGEN a custom VTOS system configuration 
containing special LO drivers, device LlNKing and ROUTEing, 
SPOOLing and DEBUG tasks. 

Dyamic file name defaults in APPEND. 

COPY and APPEND commands execute up to 300"i. faster. 

Variable Length file support is incorporated which 
automatically blocks short user data records both within a 
sector and across sector boundaries, thereby taking maximum 
advantage of disk file space. 

No security disk needed to make backups or to run the 
system $99.95 




CP/M SOFTWARE 
SUMMARY GUIDE 



A concise, handy summary of the major software used on 
most CP M systems. Included are summaries of the CP/M 
operating system, Microsoft BASIC, CBASIC", and the CP/M 
utilties DESPOOL- MAC ", and TEX. 

The CP M summary covers the commands (DIR, ERA, REN, 
SAVE, TYPE, USER) and utilities (ASM, DDT, DUMP, ED 
LOAD, MOVCPM, PIP, STAT, SUBMIT, SYSGEN, XSUB). 
Each one is explained briefly and clearly with examples. The 
booklet also summarizes all features of Microsoft's BASlC-80 
(including the compiler) and Compiler System's CBASIC. Error 
codes for CBASIC 1, CBASIC-2, and BASIC E are also 
summarized in a single alphabetical list. Examples and 
definitions clearly explain the workings of DESPOOL, MAC, 
and TEX utilties offered by Digital Research. 

The CP/M Software Summary Guide is designed to be 
especially easy to use. Features areorganized alphabetically, so 
the reader can find an explanation quickly rather than having to 
page through various function sections. 

$3.75 (plus $1.00 shipping 





Fantasy at 
your 



fingertips! 



TM 



AUTOMATED 
SIMULATIONS 



TRS-80 d 

Morloc's Tower S14.95 (c) 

Morlocs Tower $19 95 (d) 

Datestones of Ryn S14.95 (c) 

Datestones of Ryn S19.95 (d) 

Starfleet Orion $19.95 (c) 

Starfleet Orion $24.95 (d) 

Rescue at Rigel $19.95 (c) 

Rescue at Rigel $24.95 (d) 

Temple of Apshai $24.95 (c) 

Temple of Apshai $29.95 (d) 

Invasion of Orion $19.95 (c) 

Invasion of Orion $24.95 (d) 

APPLE "~ 

Rescue at Rigel $19.95 (c) 

Rescue at Rigel $24.95 (d) 

Datestones of Ryn $14.95 (c) 

Datestones of Ryn $19.95 (d) 

Starfleet Orion $19.95 (c) 

Starfleet Orion $24.95 (d) 

Invasion Orion $19.95 (c) 

Invasion Orion $24.95 (d) 

Temple of Apsfiai $24.95 (c) 

Temple of Apshai $29.95 (d) 

Morloc's Tower $14.95 (c) 

Morloc's Tower $19.95 (d) 

PET^ 

starfleet Orion $17.95 (c) 

Rescue at Rigel $19 95 (c) 

Temple of Apshai $24.95 (c) 

Invasion Orion $19.95 (c) 

Datestones of Ryn $14.95 (c) 

Morloc's Tower $14.95 (c) 

The SaHw^ate Exchange 

6 Soiilh SI . Miltofd, NH 03055 

Order TOLL-FREE; (In NH call 673-5144) gm^^ ^^^g 

1-800-258-1790 ^^ k^^ 
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Use only the finest 
tools available. 



Monitors from TSE. 



STAD 



RAMWARE 



Unlock the power of the Z-80 with STAD Symbolic Trace 
and Debug 

A powerful monitor for the TRS-80 with special 
Debugging. Single Step through the machine language 
programs or set up to three breakpoints, and look at this 
display format! 

For tape and disk systems, 16, 32, and 48K on one cassette. 
$24.95 



A FIRST(O) LAST(FFFF) 

A FIRST 

B 

B VAUV 

B VALA VALB(O) 

C 

D FIRST(O) LAST(FFFF) 

E FIRST(O) 

F FIRST LAST VALUE 

G BRKPTS (3 max.) 

H FIRST LAST VALUE 

I PORT 

K 

L 

L SECTOR MEMORY C0UNT{1) 

M FIRST LAST BLOCK 

N 

NO 

N VALUE 

N FIRST 

O PORT VALUE 

P 

P ENTRY 

P FIRST LAST 

Q FIRST LAST 

R 

S FIRST LAST OPTION(O) 

T COUNT 0PTI0N(6) 

U FIRST COUNT OPTION(O) 

V FIRST LAST BLOCK 

W SECTOR MEMORY COUNT(I) 

X FIRST LAST BLOCK 

Z FIRST LAST VALUE(O) 



ASCII dump 

formatted ASCII dump 

start of branch table 

display in decimal 

hex arithmetic 

check system tape 

dump hex 

edit memory 

find byte 

set breakpoints, continue 

find word 

read port 

keyboard echo 

load system tape 

load from disk 

move memory 

display symbol table 

symbol table to tape 

define value for symbol table 

define start symbol table 

write to port 

initialize memory blocks 

write memory blocks and start 

define a memory block 

calculate checksum 

display / modify registers 

disassembler 

trace instructions 

unformatted tape I/O 

verify memory 

write to disk 

exchange memory 

zero memory 



EDITOR/ASSEMBLER 

P L U O Microsoft 



Plus what? Well, you get the features of the T-Bug and 
the original editor/assembler plus macros and conditional 
assembly, plus extra commands like substitute, move, copy, 
and extend, plus Z-Bug, a powerful debugging monitor with 
8 level breakpoint capability. $29.95 




RSM 2/2D 



SMALL SYSTEMS SOFTWARE 



22 commands to control your TRS-80 Z-80 processor! 
Examine ROM, test RAM, program in machine language 
read/write machine language tapes, and much more! RSM-2 
tape loads at top of 16K Level I or II, RSM-2 disk includes 
3 versions for 16K, 32K and 48K. RSM-2: AN ADVANCED 
TAPE MONITOR FOR 16K TRS-80's. $26.95 

RSM-2D; THREE MONITORS FOR TRS-80 disk systems. 
$29.95 



Z-80 ZAP/CMD 



RAMWARE 



Powerful disk modification utility in machine language 
allows you to READ, DISPLAY, MODIFY, WRITE, and 
COMPARE disk sectors. It will calculate Hash Index Codes 
for any filespec and tell you where to put it (ever have a HIT 
read error?). You can recover killed disk files. Search for a 
byte and have it identified with a flashing cursor. 
Convenient to use, with cursor controlled by arrows, paging 
forward and backward, toggle between same sector on 
different disks and between Z80ZAP and DEBUG. Do disk 
backups, apply patches and fixes, and explore your disk. 

Program on disk for minimum 16K 1 disl( system, with 
instruction manual. $29.95 



ULTRA-MON 



INTERPRO 



The first intelligent monitor available for the TRS-80. 
Ultramon is the first ROM independent machme language 
monitor which puts you in COMPLETE CONTROL with 
exclusive INTERPRETIVE EXECUTION. 

Each instruction is individually fetched, decoded, 
disassembled, and analyzed by Ultramon's "BRAIN" so that 
your efforts cannot "Bomb-out" and so that you can put 
breakpoints anywhere . . . You can even put breakpoints in 
ROM. 

ULTRA-MON displays, disassembles, traces (hard-copy 
trace disassembly, too!) lineprints, modifies, relocates 
memory, and even relocates itself with its commands. This 
13-page documentation SHOWS YOU HOW TO DO IT. 

Totally ROM independent, Ultramon will work in both the 
old and the newer ROM and will not be affected by any 
lower case modifications. 
Cassette $24.95 



The Sattw&are Exchange 

6 South St , Millord. NH 03055 

TO ORDER TOLL-FREE: (in NH call 673-5144) 

1-800-258-1790 
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IMHOTEP 




The S-80 version of IMHOTEP 
requires Level II and 16 K. The 
Apple version requires Applesoft 
anil 16 K. 

Apple translation by Michael 
Antonovich 

by Terry Clark 




In old kingdom Egypt, during 
the reign of Zoser, there lived a 
wise man named Imhotep. Zoser 
desired that a great monument he 
built so that the Gods of Egypt 
would grant him eternal life. 
Imhotep was renowned throughout 
Khem (as they called their country) 
as a man of great intellect. The 
discovery of medicine and science 
as they know it, and the relatively 
new techniques of architecture were 
attributed to him. Therefore, Zoser 
chose Imhotep to erect his 
monument. Upon the desert of the 
east the first pyramid was raised, 
the famous step pyramid at 
Saqqara. Though a long way from 
the perfection and sheer size of the 
later Great Pyramid, the step 
pyramid of Zoser is a good first 
try. Imhotep must have been a 
remarkable man, possibK' even 
worthy of the godhood granted 
him by later generations of 
Egyptians. He was revered until the 
very end of the culture. 

In this game I have tried to 
simulate the frustrations involved 
in the construction of a pyramid. 
The strain on the entire country 
must have been great indeed. From 
the hundreds of thousands of 
people involved, to the vast 
amounts of grain needed to feed 
them, all had to be coordinated. 
This task fell for the first time on 
the shoulders of Imhotep. He did 
not have the lessons of past failures 
to rely upon for guidance. He had 
to devise all the systems needed to 

18 



perform this task. The fact that the 
pyramid was finished is, in itself, a 
testament to the intelligence of this 
man. 

So this man, Imhotep, fulfilled 
the wishes of his lord and master, 
Zoser the Pharoah. The step 
pyramid has brought the memory 
of Zoser into the present day and 
made his name immortal. But also 
the name of Imhotep lives on. To 
this day no one has located his 
tomb. Somewhere it may still e.xist. 
waiting, as did the tomb of Tut- 
ankh-amen, for the light to re-enter 
its now-darkened confines and 
illuminate the many wonders surely 
entombed with the great master 
mason Imhotep. 

List of variables used in Imhotep 
(both versions) 

AS - used in INPUT statements to 
advance the game. 
B - the number of tels (of land) to 
be planted. 

B$ - current overseer's name. 
D - the number of tels flooded by 
the Nile. 

ES - stores the top and bottom 
border design (S-80 only). 
E - used in the graphics of the 
Pyramid as the starting point of 
each course. 

ER - stores the number of mistakes 
the player has made. 
F - the end-point of each course in 
the Pyramid graphics. 
G - FOR NEXT loop in the 
pyramid graphics. 
GS - contains a string of three 
pyramids as used in the border. (S- 
80 only) 

H - the number of lines PRINTed 
on the screen. Used to avoid 
scrolling in the case of an eventful 
year. 

I - the number of storehouses 
alloted to feed the work force. 
IMS - the name and honorifics of 
IMHOTEP. 

J - the number of storehouses to 
feed the general population. 
K - the random harvest. 
L - the number of people fed in the 
general population. 
M - the number of people fed on 
the work force. 
N - the number of courses 



completed on the Pyramid. 

O - the number of storehouses 

either claimed or given by the 

priests. 

P - the total population of Egypt. 

Q - random chance of plague. 

tribute or Zoser's campaign. 

R - increase in population for each 

year. 

S - total number of storehouses. 

T - time in years. 

U - random chance of rebellion by 

the work force. 

U 1 - temporary counter of those 

killed in rebellion (Apple only). 

V - the amount of tribute from 
Nubia. 

VI - temporary counter of 

population killed due to various 

causes. 

V$ - used in line # 660 to call a 

new game. 

W - the number of people in the 

work force. 

WA - the chance of war, invasion, 

Minoans, rebellion and a bride for 

Pharoah. 

X - loop in Pyramid graphics used 

to draw each course of stone. (S-80 

only) 

Y - level of each course in Pyramid 
graphics. 

Z - chance of collapse. 
ZZ - timing loop on "NEW 
GAME" input at end of game. (S- 
80 only). 




APPLE VERSION 

Title and Copyright 

IC REM IMHOTEP - PYRAMID EUILDE 

R ■« UEPSION 2.5 
20 REM COPYRIGHT (C) 1980 TERRY 

CLARK COLUMEi'JS IN 
Clear space, set graphic Mode, and 
drsu introductory picture. 



30 TEXT : HOME .* GR J GOSUB 1200 

\m -- 

Initialize the contents of sone 
vsriables. 

^0 READ EiflP = 300eOC,'D = 25flO:S 

= 33fl:T = o:w = fl:ER = o:n - 
e:i^* = "IMHOTEP" 

Clesr 5CTseri snd print introductory 
psges. 

6C TEXT : HOf€ : GQSUe 61; GOTO 
70 

il PRINT TAE:( 20)"x"; PRINT TAEU 
19) "X**": PRINT TAe( 18)"io« 
x»"x": PRINT TmE( 17)"»:xxx*)« 
I",* PRINT TAB( 16)"iJ!»"xxxxJ( 
*": PRINT ; PRINT ! RETURN 

70 PRINT TAe( 17)"I«H0TEP": PRINT 
TAE:( 13)"PYFj^MID BUILDER": PRINT 
: PRINT 

75 PRINT "WRITTEN BY* TERR'Y CLAR 
K": PRINT "TRANSLATED TO APP 
LE BY* M.P. ANTONOVICH": PRINT 
: PRINT : GOSUB 61 

80 FOR 12 = 1 TO 5000: NEXT 12: HOME 

85 PRINT "++++A DECREE FROM ZOSE 
R,": PRINT " THE GOLDEN H 
ORUS,": PRINT " BULL OF K 
HEM.++++" 

90 PRINT : PRINT "TO imOTEP, MA 

STEP mason:" 

100 PRINT "IMHOTEP, THE PHAROAH 
HAS COMMANDED A", "PYRAMID TO 
BE BUILT. THE HORUS DESIRE 
S","THIS GLORY TO HIS NAME T 
BE FINISHED", "HITHIN A PER 
lOD OF TWELVE YEARS." 

130 PRINT "YOm OVERSEER IS "18$ 
: PRINT "HE IS TO OBEY YOUR 
COMMANDS.": PRINT : PRINT 

110 PRINT "HIT ANY KEY TO CONTIN 
UE ":: GET M 

JijHp to the pyrattid drawing routine 
for an initial pyranid. 

m HOME 

H2 IF T = THEN 163 

H5 GOSUB 690 

A report on the current state of 
iffai'js is pvinted under a separate 
page. 

150 UTAB 21 : PRINT "WOFJ( SITE AF 
TER "IT!" YEARS." 



161 GOSUB 162: GOTO 163 

162 FOR II = 1 TO 5000 : NEXT II : 

RETURN 

163 TEXT : HOME 

UA PRINT "POP'ULATION OF KfCMI - 

"I INT (P) 
165 PRINT "PHAROAH OWNS "; INT ( 

E);" GRAIN STOREHOUSES.": PRINT 

"NILE FLOODED "; INT (D):" T 

ELS OF LAND." 
180 PRINT : PRINT "♦ OF PEOPLE Y 

OU WISH ON WORK FORCE": INPUT 

W 
190 IF (W > p) OR fW < 0) THEN 7 

80 
200 PRINT : F-RIHT "FROM ": INT ( 

S):" STOREHaJSES OWNED BY RA 

II 
f 

210 INPUT "HOW mix WILL FEED WO 

RKERS ";i 
220 IF (I > S) OR (I < 0) THEN 8 

10 

230 p - p - w:s = S - I 

The desired actions are input arid 
checked for legality. 

25C PRINT : PRINT "FROM ": INT ( 
S):" REMAINING STOREHOUSES," 

260 PRINT "HOW MANY WILL FEED "; 
INT (P): INPUT "REMAINING P 

EOPLE ":j 
270 IF (J > S) OR (J < 0) THEN 8 

20 
280 S = S - J 
29C PRINT : PRINT "FROM "', INT ( 

D):" TELS, HOW MANY DO YOU" 
300 INFirr "WISH TO PLANT "JB 
320 IF B > D OR B < THEN 810 
330 IF B > S X 100 THEN 870 
310 IF B > P X 10 THEN 880 

Screen is cleared. 

350 TEXT : HOME :H = O: GOSLfi 61 



The storehouses allotted to the 
workforce are used to deternine the 
ni.iMber of people fed, at the ratio 
of one storehouse to 1000 people. 
If fed too Huch, the nunber fed is 
the 53He 35 the total rii-wber of 
workers. 

360 M = I X lOOO: IF M - W > THEN 
M = W 



The sane is done for the rewsmder 
of the population. is used to 
deterMine how nany people will nove 
here* based on the quality of chow 
in Egypt. 

370 L = J X iooo:r = l - p: if R < 

THEN R = 
380 P = R + INT ( RND (1) * 1000 

385 IF P - L > THEN PRINT "YO 
U HAVE STARVED "'P - LJ" PEO 

ple.":er - ER + 1 

386 IF L - P > THEN L = P 

If you starve too many people, 
Zoser will get yoij. 

3?3 IF P - L > P X .15 THEN 900 

Various randofi eledents are 
deternined here. The harvest and 
the number of storehouses gairieo, 
the chance of war, plaque, and 
other catastrophic events are 
decided snd the program junps to 
the appropriate subroutines. Tine 
is advanced in line 170. 

10 e li ^ INT ( RND (1) X 10 ): IF 
U < 1 THEN 1050 

101 IF (M - W) < THEN PRINT " 
YOU HAVE STARVED ";W - Ml" W 
0RKERS.":ER ^ ER + 2! GOTO 1 

ose 

119 2 = INT ( RND (1) x 50); IF 

(Z :: 9) AND (N > 1) THEN 113 


12C K = RND (1) X 3.5:S = S - (B 

/■ 100) 
130 IF N > T X 2 THEN ER = EF; - 

1 
^10 IF ER > - THEN = INT ( 

((E X ( RND (D) + (ER X D) 

/ 2)): IF < 2 THEN 3 = S - 


150 IF ER < THEN = INT (S x 

( RND (D) / 10):3 = S + 

169 IF S < THEN S = 

170 S = S + ((B X K) / 10);T = T + 

1 

X 

1?!.' D = INT ( RND (1) X 1000 + ( 

X .5)):Q = RND (1) X 30: IF 

Q > 22 THEN 950 
181 IF (0 > 12) AND (Q < 18) THEN 

1010 
132 IF Q < 8 Th£N 920 
190 WA = R/C (1) X 3flO: IF WA < 

19 THEN GOSUB 910 
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-^'1 IF m > 232 THEN GOSUE 10'?0 


621 IF (H > 8) AND (H < 11) THEN 


810 


PRINT IM$;","; PRINT "DO NOT 


192 IF (HA < 210) Af© (HA > 165) 


PRINT IM$|",": PRINT "A VER 




JEST,": PRINT "THE HAWK'S E 


THEN GOSUE: 960 


Y EVENTFUL YEAR." 




ARS ARE SHARP. ":ER = ER + i: 


193 F (HA > 75) AND (HA < 130) THEN 


621 PRINT "HH ANY KEY TO CONTIN 




GOTO 200 


GOSUB lOZd 


UE "i: GET A$ 


820 


FfINT imV',"'. PRINT "I, "IB 


W IF (HA > 255) AND (HA < 260) 


625 IF T = 6 THEN GOSUB 1330 




$1", WARN YOU N0T":ER = ER + 


THEN GOSUE! 1030 


630 GOSUB 690 




1 




610 IF T > = 12 THEN 890 


830 


PRINT "TO MOCK PHAROAH ZOSER 


The report of the year's progress 


650 S = INT (S X 10 + .5) / lOID 




. HIS FLAIL IS", "SWIFT.": GOTO 


is displayed^ along with a 


= INT (D X 10 + .5) / IflIP 




250 


statenent on the nood of the 


= INT (P X 10 + .5) / lO: GOTO 


810 


PRINT IM$r',": PRINT "PHAROA 


Pharoah, if reeded. 


150 




H HAS KILLED "|B$: PRINT "YO 

UR oi'erseer.":er = er + 1 


510 PRINT "THE HARVEST THIS YEAR 


End of prograM. 


850 


ONERR GOTO 1190 


WAS "IK / 10 : PRM " ST 




860 


READ B*: PRINT "I AM "IB*!" 


OREHOUSES PER TEL." 


660 PRINT "IMHOTEP WILL YOU TRY 




YOUR NEW OVERSEER.": PRINT " 


520 IF ER > = THEN 530 


AGAW (Y/N) "i: GET Vf 




NOW..."! GOTO 290 


521 IF (ER < 0) AND (0 > 1) THEN 


661 IF V$ = "Y" THEN RHJN 


870 


PRINT "THERE IS ONLY ENOUGH 


PRINT "THE F'RIESTS OF AMEN 


662 IF V$ = "N" THEN TEXT : HOME 




GRAIN TO PLANT "|S x 100 - 1 


GAVE ZOSER,";0: PRINT " S 


: END 




: F-FINT "TELS.":ER - ER + 1: 


TOR-EHOUSES OF GRAIN. ":H = H + 


670 GOTO 660 




IF S X IOC - 1 < THEN 901 


i: GOTO 510 








530 F < 2 THEN GOTO 510 


This subroutine is used to redraw 


871 


GOTO 290 


531 IF ER > = THEN PRINT Q'," 


the initial picture, and then draw 


880 


PRINT "THERE ARE ONLY ENOUGH 


STOREHOUSES OF GRAIN HERE C 


thf? pyrawid, course by course. 




PEOPLETO PLANT": PRINT F' x 


LAIMED": PRINT " BY THE P 






10r'TELS.":ER = ER + i: GOTO 


RIESTS OF A«EN.":H = H + 1 


690 HOMt : GR I GOSUB 1200: COLOR= 




290 


510 PRINT "THE POF'ULATION INCREA 


13;e ^ o:f = 39:y = 39 


890 


PRINT "YOU HAVE RUN OUT OF T 


SED BY "IR: print " PEOPL 


691 IF N - THEN RETURN 




IME, ZOSER WANTS", "YOUR HEAD 


E," 


692 IF NN > THEN FOR G = 1 TO 




.": GOTO 660 


550 P = R + L + M - Ul - VI 


nn: hline,f at y:e - e + 1: 


900 


REM YOU KILLED TOO MANY PEO 


551 ui - o:vi = 


F = F - 1:Y = Y - i: NEXT G 




PLE 


560 N = INT (N + (W - (W - M)) / 


693 FOR G = NN + 1 TO N: FOR EE = 


901 


PRINT "ZOSER WANTS YOU MUMIF 


90000) 


E TO F 




lED ALIVE IN THE ", "HOUSE OF 


570 IF N > 20 THEN N = 20 


69^ PLOT EE,Y:SD = PEEK ( - 165 




THE DEAD.": GOTO 660 


530 IF (N < 21) P,m (N > 0) THEN 


36) + PEEK ( - 16336): FOR 


920 Q = RND (1) X (P / 2) x 5:Q = 


FltlNT "THE WmK FORCE HAS C 


PA = 1 TO 50 : NEXT PA: NEXT 




INT (Q + .5): PRINT "A PEST 


OfflHED "IN: PRINT "COURSES 


EE 




ILENCE DESCENDED FROM AMEN-R 


OF THE PYRAMID." 


695 E = E + i:f = F - i:y = Y - 1 




e.":h = H + 1 


590 IF (N < 21) AND (D < 1000) AM) 


: NEXT G 


930 


PRINT CI" PEOPLE DIED."; VI = 


(H < 10) THEN F^RINT "THE VI 


696 NN - N 




Ql GOTO 510 


ZIER-S PREDICT A POOR FLOOD N 


750 IF N = 20 THEN 970 


910 


Q = INT ( RND (1) X p); pRJNT 


EXT", "YEAR. ":H = H + 2 


760 RETURN 




"HYKSOS WITH CHARIOTS AND BL 


591 IF (N < 21) AND (D > 3700) AND 






ADES OF", "BLACK EVIL METAL H 


(H < 10) THEN PRINT "THE ffi 


Here are the punishments for your 




AVE ATTACKED KHEM.",L!r' PEOP 


LTING SNOW OF ETHIOP HELLS T 


errors, which are Kept track of in 




LE HAVE BEEN KILLED.": VI = Q 


HE", "NILE THIS SF-RING.":H = 


the variable 0. is used here 




;H = H + 3: RETUF;N 


H + 2 


to keep the screen froM being 


950 


V = INT ( RND (1) X 50): PRINT 


600 IF (N < 10) AND (T > 6) OR ( 


filled to the point of over 




"NUBIAN EMISSARIES HAVE BROU 


ER > 3) AND (N < 20) Tf£N PRINT 


scrolling. 




GHT TRIBUTE", "OF "|V|" STOR'E 


"Fm:OAH IS EOTHERED BY YOUR 






HOUSES OF GRAIN. ":S = S + V: 


INEFFICIENCY" :H = H + 2 


78C PRINT IMfl",": PRINT "203ER 




H = H + 2* GOTO 510 


610 IF ER > 7 THEN PRINT "}£ HA 


HEARD YOUR FOOLISHhESS.": PRINT 


960 


Q = INT ( RND (1) X p); PRINT 


S DECREED, THAT FOR YOUR' MIS 


"HE HAS EXILED "|B$;".":ER = 




"ACHEAN BARBARIANS FTvOft Trit 


TAf(ES,","YOU WILL E£ EXTI FD 


ER + 1 




NORTHEF;N SEA", "HAVE RAIDED T 


TO THE RED LAND OF", "THE EAS 


790 GNERR GOTO ll?o 




HE DELTA "lO; PRINT "PEOFIE 


T.": GOTO 660 


BOO READ e*: PRINT B$;" HAS BEEN 




HAVE BEEN KILLED.": VI = Q:H = 


620 IF H < 2 THEN PRINT IMil"," 


ASSIGNED AS OVERSEER.": PRINT 




H + 3: RETURN 


: PRINT "AN UNEVENTFUL YEAR. 


"NOW...": GOTO 180 


970 12 = 2000 
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980 



981 



982 



983 



lOlO 



1020 



1030 



1040 



1050 
1060 



1070 



1080 
1090 

HOC 

1110 



1130 



ll-^Q 



PRINT "IMHOTEP, YOU HAVE FUL 
FILLED THE WISH": FOR II = 1 

TO 121 NEXT II 

PRINT "OF PHAF;0AH. YOUR REW 
ARD IS THE GREAT": FOR II = 
1 TO 12: NEXT II 
PRINT "BOON OF BEING ENTOMEiE 
D WITH YOUR LOR'D": FOR II = 
1 TO 12; NEXT II 
PRINT "AND MASTER, ZOSER, TH 
E GOLDEN HORUS.": FOR II = 1 

TO 12: NEXT II ; GOTO 660 

V = INT ( RND (1) x 50): PRINT 

"a military campaign led by 
zoser has", "brought an addit 
lonal "ivi" tels": print "of 
land into the doueie-kingdo 
m.":d = d + u:h = h + 3: goto 

510 

V = INT ( RW (1) « 50 + 20 
): PRINT "MINOAN MERCHANTS H 
A'.'E BROUGHT "IV: PRINT "STOR 
EHOUSES OF GR'AIN TO TRADE FO 
R": PRINT "METHODS OF BUILDI 
NG AS PRACTICED IN","KHErtI." 

:s = s + u:h = H + 4; return 
V = INT ( rnd (1) X 100); print 

"THE PHARlOAH'S NEW SYRIAN BR 
IDE BF:0UGHT","A DOWRY OF "JV 
I" STOREHOUSES": PRINT "OF G 

RAiN.":s = s + v:h = H + 3; return 

Ki ^ INT ( RW (1) X W)',\ll = 

v;w = w - u; print "a fanati 

CAL rebel-priest HAS ESCAPED 
"."WITH "IV;" WORKERS INTO T 
HE": PRINT "WILC£RNESS OF TH 
E SINAI. ":H = H + 3; RETUR/^ 
IF W = C THEN RETURN 
U = INT ( RND (1) x 100): PRINT 
"THE WORK FOR'CE HAS REVELLED 



:u 



AND ";b$;", 

PRINT "WERE 



PRINT "wor+;ers, 

THE OVERSEER,' 
KILLED BY" 

PRINT "PHAROAHS'S VICTORIOU 
S ANUBIS SQUADRON." 

ui = u:w = W - U 

ONERR GOTO 1190 

F£AD B$: PRINT "THE GREAT Z 
OSER HAS CHOSEN ";B$: PRINT 
"TO BE YOUR NEW OVERSEER. ";H 

= H + 6: GOTO 120 
Z = INT ( RW (1) X 2 + 2): 
N = N - Z;W = W - INT (W X 
.25) :M = W + P: if ^fri > N Tt£N 
NN = N 

PRINT Z;" COURSES OF THE PY 
RAMID HAVE"; F'RINT "COLLAPSE 
D AND Of€-FOURTH OF THE WORK 



","FOURCE WAS L0ET.":H = H + 

3: GOTO 120 
1160 N = 20: GOTO 690 
Here are the overseers. 

1180 DATA "MEf£-PTAH","RA-ANX-T 
ETA" , "ATUM-ATON" , "SETEP-EN-R 
E" , "RAMOSE" , "MERI-ATUM" , "KA- 
RES" . "MAATTUti" , "MERI-TEHU" 

1181 DATA "TOTHMES","RE-MES-SES 
","PTAHMES","MERIPASHTU" 

Store the picture for the 
introduction snd annual picture. 

1200 COLORE 9: HLIN 1,8 AT i: HLIN 

8.12 AT 2: PLOT 12,3: HLIN 7 
,3 AT 3 

1202 VEIN 2,9 AT 6: VEIN 5,9 AT 
7: VLIN 2,9 AT 5; VEIN 2,9 AT 
V, VLIN 2,9 AT 3: VLIN 3,9 AT 
2; PLOT 1,4 

1203 HLIN 8,12 AT 91 HLIN 1,5 AT 
19: HLIN 1,5 AT 20; HLIN 15, 

16 AT 20; HLIN 11,15 AT 19: HLIN 
3,8 AT 2i: HLIN 11,19 AT 21 

1201 COLOR- i: HLIN 13,15 AT 5: PLOT 
15,6: VLIN 5,21 AT 13: VLIN 
11,15 AT 2; VLIN 11,15 AT 39 

1205 FOR ZP = 1 TO 6; PLOT 5 + Z 
P,9 + ZP: plot 3 + ZP,9 + ZP 
; NEXT ZP: FtOT 8,10 

1206 FOR YP = 1 TO 3: FOR ZP = 1 
TO YP X 2 - i: PLOT 2 + ZP, 

16 + ZP - YP X 2: NEXT ZP,YP 

1207 COLOR= 3: HLIN 3,6 AT 16: HQN 
3,5 AT 17: HLIN 3,5 AT 18: HLIN 

8.13 AT 16: HLIN 10,13 AT 17 
; HLIN 11,11 AT 18 

1210 HLIN 28,31 AT 16; HLIN 27,3 

AT 17; HLIN 27,29 AT 18; HLIN 
35,38 AT 16; HLIN 35,38 AT 1 
7: HLIN 35,37 AT 18 

1211 COLOR= 9: HLIN 33,37 AT i: HLIN 
33,38 AT 2; HLIN 33,31 AT 3: 

HLIN 36,39 AT 3: HLIN 36,39 
AT i: HLIN 23,26 AT 21 : HLIN 
33,33 AT 21 

1212 VLIN 5,9 AT 3S: VLIN 5,9 AT 
33: VLIN 1,8 AT 3i; VLIN 6,8 

AT 35; VLIN 7,9 AT 36; HQN 
27,33 AT 9: PLOT 32,8 

1213 HLIN 27,30 AT 5; HLIN 30,31 
AT t: HLIN 31,32 AT 6; HLIN 

26,28 AT 19: HLIN 25,26 AT 2 

O: HLIN 36,37 AT 19: HLIN 36 

,37 AT 20 
1211 COLOR- i: FOR XP = 1 TO 6: PLOT 

35 - XP,9 + XP: plot 37 - XP 

,9 + XP; PLOT 39 - XP,9 + XP 

: NEXT XP 
1215 FOR XP = 1 TO i; PLOT 39 - 

XP,11 + XF': NEXT XP; PLOT 38 



,li; PLOT 37,15 
1220 VTAB 2i; PRINT TAB( 16)"IM 

HOTEP" 
1225 IF TZ = 1 THEN RETURN 
1230 FOR ZZ = TO 5000; NEXT ZZ 

;TZ = i; RETUR'N 
It is juhilee tine. Here Pharoah 
uses the nunber of Mistakes Hade 
(ER), the degree of coMpletion (N), 
the riLiMber of storehouses (S), and 
the nuMber of people (P) to rate 
the ability of Itihotep. If 
rewarded, Inhotep has his Mistakes 
erased fron his record, which, by 
the way, will get the priests off 
his back. 

1330 TEXT : HOME : GOSUB 61 : PRINT 
TAB( 16) "JUBILEE": PRINT "I 
T IS TIME FOR PHAROAH'S JUBI 
LEE.", "YOU HAVE USED HALF OF 
YOUR TIME." 

1310 IF (N = 20) OR ((N > 10) AND 
(P > 300000) AND (S x 1000 > 
P) AND (ER < 2)) THEN PRINT 
IM$; PRINT "PHAROAH IS FIEAS 
ED WITH YOUR": PRINT "PERFOR 
MANCE SO FAR AND BESTOWS A G 
REAT", "HONOR ON YOU. FROM TH 
IS MOMENT YOU ARE", "KNOWN AS 
'GREAT LORD IMHOTEP'. 

1315 IF (N = 20) OR ((N > 10) m 
(P > 300000) AND (3 x 1000 > 
P) AND (ER < 2)) THEN ER = - 
i:iM$ = "GREAT LORD IMHOTEP" 
: GOTO 1370 

1350 IF (N < 7) AND (ER > 3) AND 
(P < 300000) AND (S x 1000 < 
= P + 50) THBJ PRINT IM$: PRINT 
"PHAROAH IS DISPLEASED WITH 
YOU AND", "DESIRES FOR YOU TO 
SUFFER THE DISHONOR", "OF BE 
ARING THE TITLE 'IMHOTEP THE 
"."INCOMPETENT'." 

1355 IF (N < 7) AND (ER > 3) AND 

(P < 300000) AND (S x 1000 < 

= P + 50) THEN ER = ER + i; 

IM$ = "IMHOTEF' THE INCOMF'ETE 

NT"; GOTO 1370 

1360 PFJNT IM$: PRINT "PHAROAH F 
EELS YOU HAVE NOT PUT FORTH 
A", "GOOD EFFORT AND DISIRES 
TO REMIND YOU", "OF YOUR RESP 
ONSIBILITIES WITH THE","TITL 
E 'IMHOTEP-HORUS-WATCHES' . " ; 
IM$ = "IMHOTEP-HORUS-WATCHES 

1370 "f-RINT "HIT ANY KEY TO CONTI 

NUE ";; GET A*; return 

continued on page 82 I 
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SOFTSIDE DATABASE 

PART 2 



by Mark Pelczarski 

S-80 translation by James Garon. 
Atari translation by Rich Bouchard. 

Last month, in the first part of 
this series, we finished with a 
program that would allow you to 
create a data file and add, print, 
save, and retrieve information. This 
month we'll make some additions 
to the program that will let you 
correct any mistakes you made in 
entering your data, plus make 
revisions to your data file. This will 
be accomplished with two new 
subroutines. Change and Delete. 

First, to identify the parts of the 
program and to clarify any 
updates, you may want to include 
the following remark statements in 
your copy. The subroutines labeled 
version 2 result from changes that 
will be made this month: 



999 


REM LOAD SUBROUTINE VERS.! 


H?? 


REM INITIALIZE SUB'ROUTINE 




^ERS.l 


199? 


RE,« WRITE SUBROUTINE VERS.l 


2999 


REM PRINT SUEiROUTINE VER'S.2 


399? 


REM ADO SUEfiGUTINE VERS. 2 


8999 


REM ERROR SUEftOUTINE #1 



The first step to consider in 
adding the change and delete 
routines is how we are going to tell 
the computer which record we 
want to modify. In the near future 
we'll develop a way to reference 
records by name, part number, or 
information under a given heading; 
but for now we'll use the easier 
approach of simply numbering the 
records from I to however many 
there are. The new lines 3115 and 
3435 for the print subroutines, and 
line 4005 for the add subroutine, 
print the record number as you are 
working. Remember that the 
records are actually numbered 
starting from zero, so in the lines 
just mentioned we add one before 
printing to give the appearance 
starting with records 1. 

The changes to the main routine 
consist of adding the change and 
delete options to the list of choices 
in lines 240 and 250. Lines 350 and 
360 handle the responses "C" or 
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"D", and in addition we've slightly 
altered lines 320, 330, and 340 by 
adding GOTO 200 at the end of 
each. The latter was necessary 
because in some of the subroutines 
AS may change, causing 
undesirable results if the subroutine 
returns to an IF statement that 
tests for a command. For example, 
if the subroutine changed A$ to a 
value of "Q", upon returning the 
program would think you wanted 
to quit. 

The Change subroutine starts at 
line 5000. It first checks if there are 
any records in the file, and if not, 
gives the user the message that 
there is nothing to change. The 
user is then asked which record to 
change. One is subtracted from the 
response to adjust the offset, the 
response is checked for validity, 
and then at line 5020 the message 
"(C) change, or (K) keep" is 
displayed. Lines 5040 to 5090 
contain a loop that will print each 
heading with the information given 
for that record, then wait for the 
user to respond with a "C" or "K". 
The "K" response simply tells the 
computer that the information 
should be kept and the computer 
loops back to the next heading. 
The "C" response allows the user 
to change that item by typing the 
new information. 

A new switch, CS, is used in this 
subroutine. At the beginning of the 
loop it is set to one. If any changes 
are actually made (if the "C" choice 
is ever picked instead of "K"), CS 
is set to zero. (It is possible to 
enter the change subroutine and 
not make any changes.) If at the 
end of the subroutine CB is zero, 
meaning changes have been made, 
SS, the save switch, is also set to 
zero. SS is the switch we used last 
month that checks if you've saved 
your current file before it allows 
you to quit. 

The Delete subroutines, at line 
6000, starts the same as the change 
subroutine. It checks to see if there 
are any records and then asks the 
user for a record number, which it 
also verifies. From lines 6020 to 
6050 it prints the information 
included in that record, then asks 
the user to verify that that 



information should be deleted. The 
deletion is accomplished by taking 
the following records and moving 
it up one, and shifting each record 
after that up to fill the gap. For 
example, if there are seven items 
and record 4 is deleted, record 5 is 
moved to the 4th position 
(becoming record 4), record 6 is 
moved to 5, and record 7 is moved 
to 6. Lines 6100 to 6130 
accomplish this shift, with the 
variable II counting from the next 
record to the end of the file (In the 
example, it would count from 5 to 
7). If a deletion actually occurred, 
line 6140 subtracts one from the 
number of records (NI), and sets 
the save switch to zero. 

The information covered last 
month was quite extensive, starting 
from scratch and designing a data 
structure and a working program. 
If there are any questions 
concerning the program to this 
point, please feel free to write. We 
do intend to make this series 
somewhat conversational, and may 
occasionally include specific letters 
and responses. We hope that in the 
process of developing this data 
base we'll be able to cover a wide 
range of programming topics in the 
context of a program, so even if 
you already own a commercially 
produced data base system, you 
may want to follow along and pick 
up some programming tips. To 
give you an idea of future plans, 
next month we'll introduce a 
simple sorting routine, and in 
following months we will develop 
search routines, print formatting, 
selective printing, editor style 
alterations, use of upper/ lower case 
(which the Atari already has), 
printer interfacing, conservation of 
space, plus several other upgrades 
that should give you both a good 
working program and a resource 
for programming techniques. 



APPLE MODIFICATIONS 


2'^C! 


PRINT ' 


(C) 


CHANGE 


A RECORD" 


2ZS} 


PRI^1T ' 


■D) 


DELETE A RECORD" 1 


T'P 


IF A$ -- 

: GDTO 


"S 
2U 


' THEN 


GOSUB 20 CO 


33C 


IF AJ = 
: GOTO 


"P 
2G0 


THEN 


GOSUB 3C00 
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3^0 IF A$ = ^'A" THEN GOSu£: ^CflU 

: GOTO 250 
350 IF A$ = "L" THEN GOSUB 5000 

: GOTQ 20C 
340 IF A* = "D" THEN GOSUE: 60 CO 

: GOTO 290 
3115 FRm "RECORD ";i + 1! PRINT 
3'?35 PRIHT "RECORD ";i + II PRINT 

^[■05 PRINT : PRINT "RECORD "jNI + 

^w? REM CHANGE SUBROUTINE UERS. 

SCPC F NT = - 1 TI£N GOSUB 90 

Of; RETURN 
5fe5 INPUT "miCH RECORD : ";i 
5fl0 I - I - i: IF I < OR I > N 

I THEN 5005 
5020 PRINT ; PRINT "(C) CHANGE, 

OP (K) KEEP" 
5030 pf'INT ; PRINT "RECORD ";i + 

1 

50Tr CS = 1! FOR J = TO NH 
5050 PRINT : PRINT Ht(J);" : ";i 

$(i,j):" -; 

5060 GET A*: IF M ; > "C" AND 
A$ < ;■ "K" THEN 5060 

5C:^C PRINT At; IF At = "K" THEN 
5090 

50PG PRIN-^ m\.j!\: INPUT '■ ; ";i 
$(I,J' 

50P5 CS - 

5093 NEXT j 

5100 IF CS = THEN SS = 

5110 RETURN 

5''<:'? REM DELETE SUBROUTINE VERS. 

1 
tflCO IF NI = - 1 THEN GOSUB 90 

00 ; RE"^URN 
iC05 INPUT "WHICH RECORD I ";i 
6510 I = I - i: IF I ; OR I > N 

I THEN f.005 
6020 PRINT : F'RINT "RECORD ";i + 

i; PRINT 
6030 FOR J = C TO NH 
6010 PRINT H*(J):" : ";il(I,J; 
6050 NEXT J 
6060 PRINT : PRINT "DELETE THIS 

RECORD'' "; 
6C"C GET A*: IF A$ < > 'T AND 

A$ < ':■■■ "N" THEN 6070 
608C PRINT At; IF At = "N" THEN 

6150 
61 GO FDR II = I + 1 TO ,NI 
tlio POR J = TO NH 
6120 It (II - 1,J) = I$',I1,J) 
6130 NEXT J: next II 

6110 Ni = HI - i;ss = 

6150 RETURN 



ATARI MODIFICATIONS 

200 RL=(f«+l)«IL;PRINT "}(S) SME CURREN 

T DATA" 

210 PflNT "(C) Ctm£ A RECORD" 

250 PRINT "(D) DELfTE A RECORD" 

320 IF CH»(A)="S" THEN GOSUB ZmiGOlO 

200 

330 F CHR$(A)="P" TfCN GOSUB 3000:GOTO 

200 

310 IF CH»(A)="A" THEN GOaJB 1000JGOTO 

200 

350 IF CHR$(A)="C" T^£N GOSUB 5000:GOTO 

200 

360 F CH?<(A)="D" THEN GOSUB 6000.'GOTO 

200 

3115 PRINT "RECORD ";i+i:PRINT 

3135 LPRINT "RECORD "JI+liLPRINT " " 

1006 PRINT ;PRINT "RECORD NU«£R "JNI+l! 

PRINT 

1999 REM CWNGE SUBROUHNE VERS, 1 

5000 F NI=-1 THEN GOSUB 9000:RETURN 

5005 PRIffT IFItlNT "^»^ICH RECORD .* "JilNP 

UT I 

5010 1=1-1 !IF KO OR DNI THEN 5005 

5020 PRINT .'PRINT "(C) CfW«E, OR (K) KE 

EP" 

5030 print .'print "record ",'i+1 
5010 cs=i:for j=o to NH 

5050 PRINT IFIilNT H»(jm.+l,JxHL+HL),'" ! 
" ; It (Ii«RL+l+J»IL , IiRL+J«IL+IL ) 
5060 (^ *2,A.'IF CHRt(A)0"C" AM) Crt?$(A 
)C"K" Tf£N 5060 

5070 F1<INT af,t(A):F CHRt(A)="K" THEN 5 
090 

5080 PRINT H$(J»HL+1,JXHL+HL)J" : "',',M' 
UT A$ 

5082 IF LEN(At)>IL THEN PRINT "TOO LONG. 
MAXIMA SEE IS "JID". R£ENTER";GOTO 5 

080 

5083 IF LEN(At)<IL THEN At(L£N(A$)+l)=" 
".'GOTO 5083 

5081 It(I)iRL+l+JxIL,I)iRL+JxHL+IL)=A» 
5085 CS=0 

5090 NEXT J 

51110 F CS=0 J\tH SS=0 

5110 RETURN 

5999 REM DELETE SUBROUTDC VERS. 1 

6000 F fi[=-l THEN GOSUE: 9000;R£TURN 
6005 PRINT ;FT<INT "hWCH RECORD .' "',',!)€' 
UT I 

6010 1=1-1 :IF KO OR I>NI THEN 6005 

6020 PRINT :PRINT "RECORD ";i+i;PRINT 

6030 FOR J=fl TO NH 

6010 PRINT H$(JiHL+l,Jxrt.+H);" : ";i»(i 

«RL+l+JxIL,M1.+J«L+IL) 

6050 fOT J 

6060 F'RINT "DELETE THIS RECORD? "I 

6070 GET *2,A!F CHR*(A)0"Y" AND C}f;$(A 

)0"N" TtOI 6070 

6080 F'RINT CHR$(A):iF CHR'<(A)="N" T>£N 6 

150 

6090 It(IxRL+l)=I»(I)iRL+l+NHiIL+IL) 

6110 NI=NI-i:SS=0 

6150 RETURN 

ALSO DELETE LINE 3060 



S-80 MODIFICATIONS 

230 PRINT" (C) CHANGE A RECORD 
210 PRINT" (D) DELETE A RECORD ?"', 
290 F'ftINT"(Q) QUIT ?"! 
310 F At = "S" GOSUB 2000:GOTO 200 
320 F At = "P" GOSUB 3000:GOTO 200 
330 F At = "A" GOSl«: 1000IGOTO 200 
350 IF At = "C" GOSl* SOOO.'GOTO 200 
360 IF At = "D" GOSUE: 6000:GOTQ 200 
370 GOTO200 

3010 PRINT"(S) SCREEN OR (P) F'RINTER ?";: 
GOSUE 60000:PRINT 



3115 
3130 
3135 
1005 
1999 
5000 
5005 
5010 
5020 
5030 
5010 
5050 
5060 
5070 
5080 
5085 
5090 
5100 
5110 
5999 
6000 
6005 
6010 
6020 
6030 
60'!C 
6050 
6060 
6070 
6080 
6100 
6110 
6120 
6130 
6110 
6150 



print"record";i + iiprint 

LF'RINT" " 

LPRINT"R£C0RD";I + IILPRINT" " 

print:print"R£cord";ni + i:print 

rem CHANGE SUE:ROUTINE, VERSION 1 
IF Nl = -1 GOSUE; 9000IRETIMJ 

input"hhich record";: 
1=1-1 ;if ko or i>ni then 5005 
printiprint"(c) change, or (k) keep'" 
print .'print"record";i + 1 
cs=i:for j=o td nh 

F'RINTIPRINT Ht(J);" '. "lltd.J);" "I 
GOSUE: 60000:IF At="K" THEN 5090 
F A5(>"C" THEN 5060 

PRINT H$(j);;iNF'UT" : ";it(i,j) 
cs=o 

NEXT J 

if cs=o then ss=o 

RETURN 

REM DELETE SUPRiXJTINE VERSION 1 

IF Nl = -1 GOSUe 9000 .'RETURN 

M'UT"WHICH RECORD" ;i 

1=1-1 :IF KO OR I>NI TfCN 6005 

F'Rint:print"record";i + i:print 

FOR J=0 to NH 

print Ht(j);" : ";it{i,j) 

NEXT J 

print:f'Rint"delete this record ■'"; 

GOSUE; 60000 ;IF At="N" Tf£N 6150 

IF At<>"Y" THEN 6070 

FOR 11=1 + 1 TO NI 

FOR J=0 TO NH 

It(Il-l,J)=It(Il,J) 

NEXT J ; NEXT II 

NI=NI-i:SS=0, 

RETURN 



® 




I WAS A SUCCESSFUL EXE- 
CUTIVE THEN owe DAY, FOR A 
SOKE ,X MANGLED A <:o/v\PUTER 
CARD -NOW NO COMPUTER IN 
THE WORLD WILL DO BUSINESS 
WITH Me. " 
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CCA DATA 
MANAGEMENT 



VISICALC 



Students and professors, small businessmen 

and tycoons, all rave about Visicalc. Permits you 

to dispense with pencil, paper and calculator — 

instead, you can have an "electronic sheet" to do 

your calculations, projections, and planning. You 

can calculate sales projections, income taxes, 

personal budget, cost estimates, engineering 

changes — even balance your checkbook. 

Visicalc is partitioned into a matrix of rows and 

columns. At each postion in this matrix you can 

define a title, formula, or number. By writing on 

your "electronic sheet," you can set up 

individualized charts, tables, and records. For 

example, you can design your own sales 

forecasting format to assist in making the 

important "What if?" business decisions such as: 

"What would happen if sales increased by 10%?" 

"What if delivery time were decreased by two 

weeks?" "What would be the result if I produced 

500 widgets this month instead of 600? What if I 

produced 700?" With Visicalc to assist you in 

performing these calculations, you can save 

countless hours. 
Visicalc requires 32K Apple II with one disk drive. 

$149.95 
TRS-80 32K disk $95.00 



SYSTEM 




Comes with complete, illustrated manual in a 
three-ring binder. Can handle up to four disk drives. 
DMS is written in BASIC, with instructions for writing 
your own programs to use DMS files, including I/O 
routines. Permits you to create, add, update, or delete 
files easily. You can search any field for any data, or 
sort by any field. Print reports, selecting any fields in 
any order, and maintain totals and subtotals on any 
numberic fields. You can print mailing labels. Print 
records and selectively; for example, only customers 
with New York addresses. Codes printed on the screen 
refer you to the manual for explanation at all times. 
There is a Scan function to report statistically on a file. 
You might ask how many accounts are overdue and receive a report that stated ten records found 
in 200 records scanned (5% of a file). DMS automatically tests lineprinter ready state to avoid 
system lockup. Provides printer alignment pattern for labels. A warning is issued if you try to 
compact data without creating a backup. (You can ignore the warning). 

Applesoft ROM disk 32K $99.95 (plus $2.00 shipping charge) 
TRS-80 disk 48K $74.95 (plus $2.00 shipping charge) 

Apple version works in conjuction with Visicalc 

TheScHware Exchange 

6 SOUTH ST., MILFORD, NH 03055 
TO ORDER TOLL-FREE (In NH call 673-5144) 

1-800-258-1790 
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Garon's GOODIES 

Those Neglected Space Compression Codes 




Another in a continuing series of 
programming concepts for the S- 
80. 

As most S-80 users know, the 
STRING$(X,Y) command is used 
to create a series of identical 
characters. X can be any number 
from to 225; this value 
determines how many similar 
characters will be created. (Unless 
you specifically CLEAR more than 
the default amount of 50, you may 
encounter OS or OUT OF 
STRING SPACE errors if X is 
large.) 

STRING$(X,Y) is one of the 
smartest BASIC functions, since it 
understands Y values which are 
either numeric or string, constants 
or variables. For example: While 
some beginning programmers use 
STRING$(X,CHR$(191)) to store 
a row of graphic characters, they 
eventually learn that 
STRING$(X,19I) accomplishes the 
same task faster, with 3 fewer bytes 
of memory, and 6 fewer characters 
to type. Also, STR1NG$(50," "), 
for instance, is often replaced by 
STRING$(50,32) since 32 is the 
ASCII code for a space. One byte 
can always be saved by replacing a 
character in quotes by its 2-digit 
ASCII code. To determine this 
code for any letter or symbol, use 
the ASC function. If, for example, 
you want to create a string of 
minus signs (-) type ? ASC("-"), 



and out will pop 45. You can now 
use STR1NG$(X,45) instead of the 
easier to read but one byte longer 
STR1NG$(X,"-"). 

Of course one byte is not a high 
price to pay for clarity. Only a 
confirmed byte-miser (like myself) 
will be willing to go to the extra 
trouble for so small a savings. BUT 

A while back, we mentioned 
STRINGS(50," '■) and the 
equivalent STRING$(50,32). Did 
you know that CHR$(242) does 
exactly the same thing but with: 

a) 5 fewer characters to type, 

b) two fewer bytes of program 
memory, 

c) faster execution speed, and - 
last but not least - 

d) a whopping 49 fewer bytes 
of precious string space!? 
Listing #1 shows the effect of 
printing the Space Compression 
Codes (SSCs) 192 through 255 on 
top of previously printed 
information. Press ENTER each 
time the display halts. To 
determine which SSC to use to 
obtain a given number of blanks, 
just add 192 to the desired number 
of blanks. Let's say you wish to 
have a 42 character message flash 
on and off by alternately printing 
(at the same screen location) the 
message and then the SSC for 42 
blanks. Since 192 plus 42 is 234, 
the SSC CHR$(234) will do your 



erasing for you, will erase only the 
message, and will cost only one 
byte of string space! 

Listing #2 lets you type in a 
message from 1 to 63 characters 
long. The program then calculates 
the required SSC and begins 
flashing your message. Notice that 
only the message is erased; the 
graphics immediately to the right 
are undisturbed. 

1 hear one of you out there with 
a flair for higher mathematics 
asking, "Since 63 and 192 add up 
to 255, and 255 is the largest 
number allowed in the CHRS 
statement, is there any way to erase 
more than 63 characters and still 
enjoy the remarkable string storage 
savings of Space Compression 
Codes?" 

I'm glad you asked that 
question. The answer is a 
resounding "YES!" While 
STRING$(X,32) can erase only up 
to 255 characters, when STRINGS 
and the SSCs team up, the 
combination is truly awesome: 
STR1NG$( 16,244), for instance, 
while consuming only 16 bytes of 
string storage, is secretly a string 
of 512 blanks, - enough to erase 
half the screen! For those of you 
who are fond of extremes, 
STR1NG$(255,255) is equivalent to 
16,065 blanks; that's over 15 'A full 
screens! "The human adventure is 
just beginning. . . 



LISTING *1 

10 FOPJ=l?2T0255STEP16!GOSUE;lOO!FORJ-OT015 

20 PRMCHR'$(I+J)CHR'$(29);:iF I+J>196THENPRINTI+j; 

30 Ff^'IVTCHF;$ ( 29 ) CHR't ( 26 ) ; I NEXT 

60 IFINKE:Y$=""THEN60ELSENEXT 

99 RLW 

ICO CLS:FOF;T=lT033:PRINT3TRING*(31,H3);:f£XT:F'OKE16383,H3 

110 F'RINT(?fl,;:RETlf;N 



_ISTIN'G »2! 

ICO CLEAR12?:CLS:PRM"^£SSAGE (1-63 ClMS)":iM^TA$(l) 

lie A*(2)=CHR'i(192+LEN(A$(l))):CLS:F'RINT"F"R£SS ENTER TO GO ON 

120 Al(l)-A$(l)+STRI^iG$(6^LEN(A$(l)),H3):S=2 

130 S=3-S:PRINTI? 512,A$(S);:Fff! 1=1 TO 5o:next 

140 IFINt(EY$=CHF:*(13)Tf£N RUN ELSE 130 Q 







"I CAN TELL YOU ONE 
THING- rr'LL NIEVER PO- 
LAY EGeSi" 
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V 



WORLD SERIES 




^^^xVM"^ 



WORLD SERIES is a 16 K 
Atari program requiring!, two 
joysticks. 

by David Bohike 

So you think the World Series is 
the end of the baseball season? 
Well it doesn't have to be if you've 
keyed WORLD SERIES into your 
Atari. This game will offer plenty 
of excitement during those sleepy 
winter (or TV football) days. 

Both players will need quick 
reflexes and cool concentration to 
master this "favorite pastime" 
simulation. The player in the field 
has a variety of deliveries for each 
batter. There are eight pitch speeds 
to select from to confuse the 
hitter's timing. Once the pitch is 
delivered, the chucker can also 
control a curve left or right until 
the ball reaches the plate. With 
this combination of speed and 
curves, the batter will have to be 
on the edge of his seat to hit the 
pitch. 

After a pitch is hit, the fielder 
will need to develop professional 
skills to actually "catch" the 
grounder or fly ball. He has 
options to dive left or right to snag 
balls just out of reach. And on fly 
balls, the fielder can jump to the 
top of the fence and snatch would- 
be home runs. 

In addition to these real-time 
playing situations, there are also 
several computer generated random 
plays. These include double plays, 
.sacrifice fly scoring, and fielding 
errors. At the end of each half- 
inning a scoreboard will display an 
inning by inning tally and a box 
score of hits, runs, errors, and 
hitting percentage. 

Playing Instructions 

To begin play, it is necessary to 
plug one joystick into slot #2, and 
another into slot #3. The stick on 
the left is the RED team, and will 
always be the visitor. Control of 
the hometown BLUE team is with 
the stick on the right. 

In order to hit a pitch, the player 
at bat needs to push his joystick in 
any direction to take a cut at the 
ball. The best time to swing is 
26 



when the ball is just in front of the 
plate. Of course, split-second 
reactions are needed for balls on 
the corner of the plate and or 
curve balls. 

The fielding player has many 
more responsibilities. First, he 
must deliver the pitch. This is done 
by pushing the joystick in any 
direction. Each of the eight stick 
positions corresponds to a different 
speed of pitch. Batters can often be 
fooled by just varying this speed. 
To make the ball curve, push your 
stick left (or right) while the ball is 
on the way to the plate. Your best 
pitches will curve just off the edge 
of the plate, forcing the hitter to 
swing at a pitch he cannot reach. 
Or, you can start the ball outside, 
and then have it curve over the 
plate. As in regulation play, four 
balls constitute a walk, and three 
strikes will be an out. 

When the ball is hit, the fielding 
player must move his man left (or 
right) by pushing the stick left (or 
right) to "catch" the ball. In 
addition, if the ball seems to be 
just out of reach you can push the 
fire button while the player is 
moving left (or right) and your 
fielder will dive left (or right) and 
possibly catch balls which normally 
would have been hits. This dive 
play takes precise timing, and is 
meant as a last-ditch effort. 

The outfielder also has the 
capability to jump straight up and 
catch balls. For example, on a long 
hit, move your fielder next to the 
fence, then press the fire button 
while the stick is in the neutral 
position and your player will jump 
a random distance straight up. 
Many games have been saved by 
the outfielder jumping above the 
home run fence and stealing a 
home run or long triple away from 
the batter. This technique can also 
work on line drives hit over your 
head. 

After a few practice games, the 
hitting, pitching, and fielding 
should become second nature for 
most players. Your first few games 
might be high scoring affairs. But 
with two experienced players at the 
controls, the outcome of the game 
will usually depend on one key hit 
or perhaps one fielding error that 
starts a rally for the team at bat. 



I believe this baseball simulation 
creates many of the tensions and 
pressures of the real game. And for 
sure there is the thrill of victory 
and the agony of defeat. If you 
have never taken the time to key in 
a magazine listing before, thinking 
that it wasn't worth your effort 
because it didn't cost $15, this 
program will convince you 
otherwise. 




Initial izitiori. A*<7) l-olds BLUE/RED, 
S(18> contains score tor 18 irinires, 
N(47) holds music tores for tijiie in 
scorecafxl rojtine 

5 REM «.LST« BASEBhU. 

6 REM ba David Bo>,lke 

89 DIM A*<7).S(18>,fK47MN=l NT=1 
82 FOR 1=1 TO 18 S(I>=0 hC^rr I 

DATA for nwsic routine 

90 FOR 1=1 TO 47 READ .'>; ^ N(I >=X NEMT I 

92 DATA 67,67,34,41,46,54-46,46,61,61,61 

93 DATA 67,67,34,41,46,54,46,46,46,46,46 
,46 

94 DATA 41,41,41,54,51,46,41,41,51,61,61 
,61 

95 DATA 41,41,41,41,43,41,36,36,46,61,61 
,61 

Main Game loop. B,R designate team at 
bit and in tJ* field, OT is fxmber of 
outs, J,K,L runner on base indicators, 
ST^strikes, BL balls, ^E errors, H^ 
bitter-readTed-base flas, P nuiriber of 
PUTS scored in each imiire 

lee IF B=2 Tf€N B=l R=2 GOTO 129 

183 DATA ter-react-«d-base flas P fiuiiber 
of rtns scored in ead-^ innins 

1J5 B=2 R=l 

129 P=e-OT=0 J=8 K=0 L=8 

Set flass, brand-, to pitd-., hit, field 
routines 

296 ST=0 BL=0 P1=P E=8 H=8 GOSUB 886 

Soind for njrs scored 

210 IF P>P1 T>€N FOR 11=1 TO P-Pl FOR 1= 
1 TO 100:301*0 0,140-1, 14, 12:NE>n- I f£XT 
II 

Add one to coint if runner doesn't 
reach base 

230 IF H=8 T1€N OT=OT+1 
240 IF B=2 TfCN 250 



Siue Blue's Kits and errors 

242 IF H<>9 Tt£N Efl=8ft+1 
244 IF H>0 (tC H<5 T^€N BH=BH+1 
246 IF E=l T^€N RE=fi£+l BH=eH-l 
248 GOTO 296 

Saue Red's hits and errors 

250 IF H<>9 1>£N Rft=fift+1 

252 IF H>e AMD H<.5 THEN RH=RH+1 

254 IF E=l THEN BE=BE+1 RH=RH-1 

Get anotl-^" pitd-. ii less tloan tj-j-ee 
outs 

298 IF 0T<3 T>€N 288 

else sive nrs scored 
388 S(IH)=P 

Dis*»lia scoreboard 

486 GRAF'HICS 6 SETCOLOR 2-l,4:SETCaOR 4 
.S^lB^FtKE 752.1 

485 ? '' " ALLSTfiR BASEBALL " ? 

418 PRINT "IhnihC" ■? ? 7 « RED "■■? ? 

" BLUE " 

415 FOR: 1 = 1 TO 5 POSITIOH !3c3+9,4 PRINT 

L^NEXT I 

428 BS=e RS=0 FOR 1=1 TO IN 

422 IF I/2=IHT(!/2) THEN 438 

424 RS=RS+S(i;' fOSITION <I/2)*3+18,7 

426 PRINT Sd,-'; GOTO 440 

438 B£=eS+S(I>F'OSTT!ai ( I..-2;*3+9,9 

432 PRINT S(I>- 

448 NEXT I 

458 POSITION 1,!4 PRINT "Eoxscore Runs 

Hits Errors Hit •:".. 
452 POSITION 2,16 PRINT " Red "POSITION 

2,18^PRINT " Blue " 
468 POSITION 13, 16 PRINT RSPOSITIOH 19, 
16 PRINT RH POSITION 26,16 PRINT RE 
462 PE=IHKRH'Rm:li3ae;' FOSITION 33, 16 PR 
INT PE 

464 POSITION 13,lS-r'F:tNT BS-pOSITIOM 19, 
IS PRINT EtlPttSITION 26, IS' PRINT BE 
466 IF eH=9 TI€H 47-9 
468 PE=IHT(EH.'eH*la9S)'PQSIT!uH 33, !S PR 
INT PE 
479 POSITION 0,23 PRINT "Press Fire tn 

coTitinue . "; 
488 IF STR!G(i;'=e OR STR!G';2)=0 THEM OJT 
485 

482 GOSUE 950 GOTO 4S0 
4S5 SOUND 1,0,0,3 IN=IN+! 

486 IF IH-19 TIE! 491 

487 IF IN=1S f*C BS/RS Th£N 491 
498 LiOTO 190 

Froa)P-t to bee It"! riext saivie 

491 FOR: 1=1 TO 100h€:-!T I POSITION 0,23 
PRINT " Press FIRE for next ssute '" 

492 IF STRIG(1>=0 OR STRIG';2>=e THEN RUN 

493 GOSUB 950 OJTO 492 

A*-'arice runners on base, J,K,L e-^ual 
zero i^ no r\^rier on Ist, 2nd, or 
3rd else tl-iey eiual one if base is oc- 
a»=ied 

688 IF H< I OR H;>4 THEN RETURN 

602 FOR 1=1 TO ^K2■3ETCl3^0R 4,RHX0:'*16, 

12 

683 SOUND 0,188,8,10 FOR 11=1 TO 188 hEX 

T II ^£XT I 

686 GOTO H:{ 10+680 

ftK'ance rurmers if sinsle (or error; 

618 IF L=l T1€N L=8 P=P+1 
612 IF K=l T») K=e L=l 
614 IF J=l ThBI K=l 
616 J=l RETURN 

(kij^ncs ruTner-s if double 

620 IF L=l THEN L=8 P=P+1 
622 IF K;=1 T^Bl P=P+1 
624 IF >1 Tf€N J=8 L=l 
626 K=l RETURN 

AA^ance |■^»lne! s if tf^iple 



630 IF L=l Th€N P=P+1 
632 IF K:=1 T1£N P=P+ 1 K=8 
634 IF J=l THEN P=P+1\J=« 
636 L=l RETURN 

AcKance rumers if hone nn 

648 IF J=l T>€N J=0 P=P+1 
642 IF K=l Tf€N K=0 P=P+1 
644 IF L=l T)£N L=0 P=P+1 
646 P=P+1 RETURN 

AcK'ance cn^ihers on walk 

650 FOR 1=1 TO 206 ^EXT I 

651 IF >0 imi J=l RETURN 

652 IF K=0 T^e^ k=i return 

654 IF L=e TfCN L=P RETURN 
656 P=P+1 RETURN 

Special situation plains 

Ground out 

660 PRINT " OUT "SETCOLOR 4,fc,12S0UND 
0.100,e,8FOR 1=1 TO 206 ^EXT I 

661 IF J=0 OR 0T>1 OR R^£Xe>'0.5 Th£N RE 
TURN 

[tuble plaa 

662 F'RINT " DOUBLE PLAY !!! "^ SOUND 0,26 
0,10,8 FOR 1=1 TO 258 hEXrr I 

664 IF OT=0 ThEN £78 

666 0T=0T-i-!RETUF:N 

670 OT=OT+MF K"=1 (W L=0 THEN K=0 J=r 

RETLRH 

672 IF L=0 AND K=8 THEN .1=0: RETURN 

674 IF L=I (t€ K=B THEN P=P+ 1 J=e L=0 RE 

TURN 

676 >0 RETURN 

Sacrifice fla 

68£i SETCOLOR 4.4,12 SOUtO 0,100,6,8 FOR 
1=1 TO 108 h£>rr ! 

681 IF OTM « L=0 OR RND'::e,v:0,4 THEN RE 
TURN 

682 PRINT " SA!:R!F!CE Run Scores ' ! ! " 

683 SETCOLOR 4, 11, 12S0UtD 0,208,6,8 FOP 
1=1 TO 280 ^EXT I 

684 P=P+1 L=8 0T=0T+1 ■H=9 RETURN 

Fieldms r^jt-ines 

700 GRAPHICS 5 SETCOLOR 4, 13, 6 'SETCOLOR 
0,0, 12 SETCOLOR E , 9 . S SETCOLOR R,14,4PQ 
|:^ 752 . 1 ■ C".-'=0 
702 IF Rn5(S^-:S 5 THEN 750 



Itrfi 



Id around bill 



703 PRINT " Infield srourdb.il' <i "" 

704 SETCC'LCR 4,1,10 

705 X=IHT(RND(0;':J25«2+10 y=3C0L0R 3:G0 
SUE 980 

788 A=RNO( >*4e+20 ' 0=39 C=< RND'; >-0 , 5 > ■ E 

=-(RhC<SH2;' 

720 COLOR QEUE 9SS 

722 IF STICKLE ';4 AM) STICK^EXS THEN X= 
X+2 IF STRIQE>=0 T^EN DU=1^G0SUB 995 GO 
TO 728 

723 IF STICK':E»£ AND ST!CliXE>a2 THEN X 
=X-2 IF STR!G':E:'=0 THEN Di.tl ^GOSLfi 992m: 
OTO 72S 

724 IF X<2 ThEN X=2 

725 IF X>74 TIEN X=74 

726 COLOR 3 GOaC 988 

728 IF A<3 OR A;-76 THEN 745 

730 LOCATE H,D-1,2 IF 2=3 THEN GOTO 668 

734 COLOR PLOT h,D 

735 A=A+C D=D+E COLOR 1 PLOT A,DIF 0<"3 
THEN GOTO 748 

737 SOU-C a,D^J5.10,5aF aO0 THEN 728 

739 GOTO 720 

740 IF A£S(X-A;'>9 THEN GOTO 747 

742 IF RN&;8ve 5 AND A8S<X+1-AK5 THEN 
E=rH=l^PRIhfT " ERROR » "< 9 t M" SOOD 
0,150,10,6 GOTO 608 
745 H=l^PRIhrr " SIMGLE "GOTO 680 
747 H=2 PR'IhfT " DOUBLE "GOTO 680 

Fla ball to outfield 

750 X=INT(R«>;0)*25M;2+!0^Y=34COLOR 3^G 
OSUB 980 

751 PRINT " Flaball to tFe outfield I! " 

:7 



752 A=INT< RttX 6 >X2B ) D=INT< RND( 6 )« ) C=K' 

MX0,H^E=RMX0>+0.6 

755 CaOR 1 PLOT 77, 30 DRAl'ITO 77,39 PLOT 

768 COLOR GOSUe 986 

761 IF STRIG<B,>=0 AM) STia«B>=15 TfEN Y 
=Y-2-RND< Xt6 Dttl : GOTO 766 

762 IF STICK(E).M AND STIOKBKB THEN X= 
X+1 IF STRIG(e)=6 THEN DLtj: GOSUE 995 GO 

TO ?e7 

763 IF STICK(B)>8 AND STia«BK12 THEN X 
=X-MF STRIGCB.'^e THEN Dti=l ^ GOSUB 992 G 
OTO 767 

764 IF X<2 TICN X=2 

765 IF X>74 TICN X=74 

766 COLOR 3 GOSUB 980 

767 IF A+076 AM) D<29 TttN GOTO 785 

769 IF ft+C,~>76 THEN GOTO 786 

778 LOCATE A,[>tl,Z^IF 2=3 TltN PRINT "OU 
T" SOUM) 0,40,4,10 GOTO 688 

774 COLOR 8 PLOT A,D 

775 A=ft+C^D=0+£ COLOR I^FIOT A,DaF D>37 
TtCN GOTO 796 

786 SOUND 0,A+C+X+Y,10,5 IF DU,''0 THEN GO 

TO 767 

783 GOTO 760 

785 H=4 PRINT " HOTt RUN "GOTO 600 

786 H=3'PRINT " TRIPLE "GOTO 666 
798 IF A>55 TfEN GOTO 747 

794 GOTO 742 

Field displaid 




800 GRAF'HICS 5 SETCOLOR 4, 13,6 SETCaOR 
8, 1,10 ^SETCOLOR' 6,9,8 SETCOLOR R.14.4 FO 
KE 752,1 

ttessases 

805 PRINT " Runs ",P;" Djts 
;0T 

806 PRINT " BALLS ",BL," STRIUS 
";ST ' 

Display field and runners 

818 COLOR 1 R.OT 35,31 CRAlvTO 4,6 
811 PLOT 44,31 DRAiJTO 75,0 
814 2=19 PCS 1=55 TO 68 PLOT 1,2 DRAUTO 
40,60-1 DRAWrO 1,2-1 2=Z-1 NEXT ! 
817 Z=14FCR 1*19 TO 24 PLOT I, Z DRAIJTO 
39, 1-19^DRAWT0 1,2-1 2=2+M€XT I 
820 COLOR 3^81=39 B2=5^ GOSUE: 990 
822 61=22^82=1?- G'JSUB 998 

824 61=56 82=17 GOSUB 990 

825 PLOT 39,33 DRAWTO 41,33 

826 FIOT 39, 34FtOT 41,34PL0T 40.35 
830 PLOT 38,10 CiRftWTO 41,10 

836 COLOR 2 PLOT 37, 33 ^ DRf iWTO 37,37 
840 IF J>0 THEN X=54Y=11 GCSUB 988 
842 IF K>0 THEN X=33Y=2' GOSUB 986 
844 IF L>0 T^EN X=19Y= 19 GOSUB 980 

PitcK and 5u,'iri5 ro'Jtit"ie, X,Y is t.i'.e 
location of tKe ball 

850 y=l 1 ■ X=38+INT( RhCK »4 ^ S1J=S 

852 Af=" RED "IF B-2 THEN ftf=" BLUE " 

854 PRINT AJ,"'S PITCH "" 

Ck^c.t for releise of ball 

855 S=STIC1::!E::'IF S=!5 THEM :i:0!JMD e,RND< 
;':S28e , 1 , 2 ' GOTO :;55 

Speed cf pitcK 

856 S=S.'6 
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Besin suiirs 


9eS COLOR 4 PLOT j7,33^DR'AIJT0 42,33 DXO 


tor ken ball 


R 2FtOT 37,33 DRAUTO 41,29RETUf;'N 




872 IF STICK';R>':>!5 T^CH £1-J=1 


904 COLOR 4^FtOT 37,33 ORJUITO 41,29R£TU 


S60 CCiLCR 4 FluT X,Y SOUtlO 8,v,!e,S 




RN 




LoOf> until ball Pisses kome plate 


905 SU=4 CiXOR 2 PLOT 37,33 DRAUTO 37,29 


Cu've on bal 1 


873 IF Y;38 Tf€H 868 


RETURN 


ee? IF STICK E>=7 AND Y<33 THEN :;^:>;+0 3 




Sound for v-ra 


IF X;>43 THEN :>;=43 


Pitch was a ball 


863 IF STIi:K(E>=U AfO y<J! THEN X^v-B ; 


874 IF S1J<1 AW) (X<39 OR X>4! > THEN BL^B 


950 SOUND 0,W;NT>,10,S 


■If :«2S THEN X-38 


L+1 SETCCLOR AAZABSIMC 0,200.6-4 FCf: 


952 FOF: ! = ! TO 10 NEXT I 




1=1 TO 30^1'Oa' TGOTO 877 


954 NT=NT+MF NT>47 THEN NT=1 


tto(,'e ball dowi, check tor- contact uitk 




956 RETURN 


bat 


Pitch was a strike 


Displays base ruTier 


865 Y=Y+S LO:»TE >:,Y,Z IF 3=2 THEN S*' 


875 ST=ST+1 SETCOLOR 4,8,18 SOUND 0,168, 


^^j-^." r-.t ^-".^ * w . 4 I I r.! .'•-T » 1 1 ' . 4 r'lrvy- 1 it"i"i ■ » » -^ ■ ' i < 


866 LOCATE X,Y+1-Z IF 2=2 THEN 896 


i0,e^FOR 1=1 TO 30^f£>rr i 


980 FLuT X+1,VPLUT ."..i+l DRAWTu .<.+2, i-^l 

^PLOT X+l,Y+2 

982 PLOT X,Y+3^PL0T X,Y+4 FIOT X+2,Y+3^P 


867 LKATE X,Y+2,2 IF 2=2 THEN SSe 


Walk or strikeout 


Display ball 


877 IF EL=4 TI€H 884 


LOT X+2,Y+4' RETURN 


^nw^'fi ^mtm 


878 IF ST=3 TIGI 895 


Displays base rxrrtsr 




980 PLOT X+1,Y PLOT X/i+PCRAWTO X+2,Y+1 


^^ ^^-^p^i^H 


Get anoth^' Pitch 


PLOT X+l,Y+2 


r^ s^ ^^•^^^iH 




982 PLOT X,Y+3^F10T X,Y+4 PLOT X+2,Y+3P 


879 GOTO see 


LOT X+2,Y+4 RETUR'N 




884 PRINT " kttLK"H=9 SETCOLOR 4,12,10 £ 




OUND 0,100, 6,8G0T0 650 


Displays base pads 


885 PRINT "STRIKE CUT" SETCOLOR 4,8,18 F 




OR 1=1 TO 100 SOUhO 0,200, 10, SNEXT IRE 


990 PLOT B1,B2 PLOT B1+1,B2 PLOT B1,B2+1 


TLRN 


•PLOT B1+1,B2+1 RETURN 


tWP^V^HM 


rto'-'s Kit bal 1 UP screen 


Displays fielder divins left oi- ristit 


M 4,?' ^1 


890 D=RND<6> IF R«>;0K0 5 THEN D=-0 


992 COLOR 3 X=X-RMX0)*9 IF XCl THEN X=l 


891 SOUND 0,S,4,14 




892 COLOR' 0F1OT X,Y X=X+0 Y=Y-1 


993 FIOT X,Y+1 PLOT X+l,Y+2 DRAlJTu X+1,Y 


^H If^^ -i ^^^W 


894 IF Y<1 Tiei 700 


+4^F1.0T X,Y+3 FIOT X+2,Y+3 PLOT X+3,Y+2 


■■UVJiaM- %■ wv^^jp^"' 


896 COLOR 1 PLOT X,Y SOUhC 9,X+2J:Y,4,14 


PLOT X+4,Y+2 




GOTO 892 


994 F1.0T X+3,Y+4 PLOT X+4, y+4 ■ RETURN 

995 COLOR 3 X=X+RND<0).'!c9 IF X.VB THEN X= 


870 COLOR IPLOT X,Y 


Displaifs suiireins bat 


70 

996 PLOT X,Y+2PL0T X+1,Y+2PL0T X+2,Y+3 


Q-*ck if bat was swijre 


901 COLOR 4 PLOT 37,33 ORAWTO 37,37^CaO 


^DRAWTO X+4,Y+3:PL0T X+3,Y+2 PLOT X+3,Y+ 




R 2 PLOT 37 , 33 - DR:AWTO 4 ! . 37 RETURiN 


4 FIOT X+4,Y+! 


871 IF SW>0 T*N GOSUE ?0e+;w SIJ=SW+1 a 


T 902 COLOR 4 PLOT 37,33 [iRftlJTO 41,37 CXO 


997 PLOT X,Y+4PL0T X+l,Y+4' RETURN 


TO 873 


R 2 FIOT 37,33CiRhWT0 42,33 RETURN 





THE PHVSlClfinS 

miCRDCDmPUTER REPORT 



Interesting Articles on 
Microcomputer 
Applications in: 

• Medical Account Records 

• Tax Record Preparation 

• Automated Patient Billing 

• Patient History Review 

• Drug Inventory and 
Prescription Printing 

• Employee Compensation 

• Disease and Drug Cross- 
Indexing 

• Success ot Treatment 
Evaluation 

• Lab Data Processing 

• Access to Large Medical 
Data Bases (Toxicology) 

• Third Party Billing 

• Patient Scheduling 

• Word Processing 

• Continuing Medical 
Education 

• Aids for the Handicapped 

• Microcomputer Book 
Reviews 

• Bio-Med Statistics 

• MUMPS on Micros 

• Investment Analysis 
•Computer Games 



The information contained in the Physicians Micro- 
computer Report could save you thousands of dollars 
and a lot of headaches 

The burgeoning costs of health care can only be 
controlled by the most efficient means of data ac- 
quisition, recording, and processing 

There is no doubt that microcomputer technology 
will touch every phase of medical practice 

In the Physicians Microcomputer Report you 
get obiective analysis on: 

• How to pick the microcomputer system that best 
suits your medical and professional needs 

• Where to find low cost medical and business 
software 

• Articles and programs written by physicians on 
microcomputer application in business, research, 
and their own specialties 

• News on the latest developments in medical 
electronics and microcomputer applications 

• Articles for the novice medical microcomputer 
user 

• National coordination of microcomputer medical 
software development and coverage of medical 
related computer conferences 

• No nonsense economic facts on whether now is 
the time for you to computerize or just add more 
personnel 

• Analysis of the future impact microcomputers will 
have on the allied madical areas 

Please start my Club Membership and Subscription to the Physicians Microcomputer Report 
A limited number of free sample copies are available if you hurry 

Name (Print) Address 

City 




State 



Zip 



D $25 One year (12 issues) n $15 Special six month trial subscription 

DBill Visa/BankAmericard D Bill Master Charge Q $12 50 Student Rate 

Credit Card # Interbank* Expir Dale 

Check enclosed for $ 



Sand to: 



Dr. Garald M. Orou, Editor, Phyalclant MIcrocomputar Raport, 
Bo> 64*3. Lawrancavllla, N.J. 0(648 
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HAVE WE 

GOT A PROGRAM 

FOR YOB! 



The new computers are showing off. 
Over $50 million worth of equipment in over 100,000 
square feet of space, including the latest software and hard- 
ware for business, government, home and personal use. Every- 
thing the NCC show has and more will be on display, and you can 
buy it all right on the spot. 

Computers costing $150 to $250,000, mini and microcom- 
puters, data- and word-processing equipment, telecommunica- 
tions, office machines, peripheral equipment and services from 
leading names in the industry like IBM, Xerox, Radio Shack 
and Apple will all be there. 

There'll be conferences on business uses of small to 
medium sized computers, and how to make purchasing 
evaluations. 

There'll be robots, computerized video games, 
computer art and computer music. 

Everyone from kids to people who earn their liv- 
ing with computers will have a great time at the larg- 
est computer show ever organized in each region. 
Admission for adults is $5. The public is 
invited, and no pre-registration is necessary 
SjET Don't miss the computer show that 

ain-— — mixes business with pleasure. Show 
[3J^ff_^ up for the show. 



WASHINGTON, D.C. 

D.C. ARMORY/STARPLEX 

THURSDAY-SUNDAY 

SEPTEMBER 18-21 

11AM TO 9 RM THURS.-SAT 
11 A.M. TO 5 PM. SUN, 



CHICAGO 

Mccormick PLACE 

THURSDAY-SUNDAY 
OCTOBER 16-19 

11 A.M. TO 9 RM. THURS.'SAT 
11 A.M TO 5RM. SUN. 



Produced by National Computer Shows, 

824 Boylston Street, Chestnut Hill, MA 02167, 

Telephone (617) 739-2000, 



Please send me: 



BOSTON 

HYNES AUDITORIUM 

PRUDENTIAL CENTER 

THURSDAY-SUNDAY 

NOVEMBER 20-23 

11 A,M, TO 9 RM, THURS,-SAT 
11 A,M.T0 5RM. SUN. 



adult tickets at $5 each. I have enclosed the proper amount of $ 

n Information on the show's conference program. 
n Holel registration information n Exhibitor rental information 



Please print Name. 



Address .. 
City 



- State ^ 



_Zip- 
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SAY YOHO 




by Scott Adams 

A monthly column on 
Compunoveh. 

Yes, there is a Scott Adams, and 
in the upcoming months 1 will be 
talking on many things, but 
basically I'll be covering topics and 
items having to do with role- 
playing fantasy games, hereafter 
referred to as "Compunovels." 
I will touch on some of the 
following items: 

1. What makes a good 
Compunovel. 

2. Bugs and problems in 
current programs. 

3. Hints on how to play 
Compunovels and strategies to 
take. 

4. How to write a good 
Compunovel. 

5. Some history on 
Compunovels. 

Today I'll start with number 2 
above. Bugs & Problems. 

There have been many 
complaints that the Radio Shack 
debounce routine KBFIX would 
not work with my Adventure series 
on a 16K Level H. This was due to 
Adventure's extremely large siz.e; 
the program actually runs from 
4300 (hex) to 7FFF, which is the 
top of memory in 16K! 

Since there really was no room 
for even a ten-word patch anywhere 
in Adventure, 1 didn't even 
consider trying to put in any sort 
of key debounce. (Remember that 
KBFIX uses approximately 55 
bytes!) 

In early February, 1980, I 
received a letter fron Vince Pepe of 
Seattle, Washington, that laid out 
a clever little program which would 
run in conjunction with Adventure 
and supply the needed key 
debounce. This was done by using 
the 23 bytes that are available at 
the beginning of Adventure. 
Adventure starts at 4300 (hex) but 
it turns out RAM is free from 
42F9, thereby giving me a much- 
needed patch area. 

I implemented Vince's patch and 
found it worked well, but my old 
companion, the blinking cursor, 
was now stationary. This was due 
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to the longer delay put into my 
key in routine. "Aha',' I said. "I will 
just have this patch also change the 
delay counter built into 
Adventure." Unfortunately, I found 
that no matter how I tried I was 
always two bytes oversized! Then I 
made my discovery. 

I found that I already had a 
delay loop in Adventure which 
counted down from 500 before 
blinking the cursor. If I could 
change the one-byte address so it 
just continued decrementing the 
counter instead of rereading the 
keyboard, I would have it. And so 
I tried modifying the location, and 
it worked! Now 1 could provide 
key debounce. Then another 
problem arose. 

How to have previous owners 
patch their copy of Adventure? 

The solution I came up with was 
simple. Upon powering up their 
TRS-80s, they would set the stack 
so it was within a large buffer 
which is in Adventure; then, using 
a simple BASIC POKE statement, 
they could modify the required two 
bytes. (While I was at it I changed 
the cursor character too). 

Here then is the procedure to use 
in patching Adventure version 8.2 
on tape to have key debounce: 
(Note this will not work with any 
version earlier than 8.2) 

1. Power up system 

2. Answer MEMORY SIZE with 
22736 

3. Type: SYSTEM 

4. Rewind Adventure tape and hit 
play 

5. Type: ADVENT. This will load 
the Adventure as usual. 

6. When the *? returns, instead of 
hitting "/" as usual, just hit the 
(ENTER) key instead. You will get 
back the message ?SN ERROR. 
This is normal. BASIC now has set 
its stack within Adventure's 
internal buffer area. (SYSTEM 
uses its stack inside of the BASIC 
input buffer.) 

7. Type: POKE 18364,251 
(ENTER) This will change the 
address inside of Adventure as 
needed. 

8. Type: POKE 18348,93 (ENTER) 
This will change the cursor 



character. 

9. Type: SYSTEM (ENTER) 
Re-enter system so we can start 
Adventure. 

10. Type: / 17232 (ENTER) 
Adventure will now start running, 
and the cursor will be blinking, 
though much faster than before, 
and all keybouncing should 
disappear! 

Next month, a look at the new 
ODYSSEY series. 
' Til then .... May all your 
Adventures be stimulating! ^y. 



ATARI 
PROGRAMMING HINTS 

Most Atari programs make use 
of graphics. While you are still 
perfecting your graphic 
masterpiece, it is necessary to 
alternate between graphics (to see 
how the picture is progressing) and 
text, to continue editing the 
program. It can become tiring to 
constantly type GR.O:L.nnn,mmm 
(where nnn and mmm are the 
beginning and ending line numbers 
you are currently working on). 
Here is an alternative: Let's say that 
the first line number in your 
program is 10. Add the following 
lines: 

G.IO 

1 GR.O:L.nnn,mmm:END 

(where nnn and mmm are the above- 
mentioned line numbers). Now, 
when you are ready to edit your 
program, you can simply type: 
G.I 

and the graphics will magically give 
way to the appropriate listing of your 
program. From there, you may 
continue editing the program. When 
you move on to a different graphic 
section of your program, just 
change nnn and mmm in line 1. 



James Garon 

Milford, New Hampshire 
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Great Scott! 

What have you 

created? 

The international reception of Scott Adams' ADVENTURE 

game series is phenomenal! Each of the ten games takes the 

player on odyssies of intrigue and danger, through 

confrontations with various villains, in pursuit of a wide 

variety of mysteries and treasures, in surroundings both 

familiar and alien. You may find yourself in a voodoo den, 

on the edge of a strange and threatening galaxy, in the 

core of a malfunctioning nuclear reactor, or in any one of the 

several other settings; ranging from mundane to bizarre. 

Challenge your genius! Order an ADVENTURE 
Master these ADVENTURES! 



Special Sampler 
Adventureland 
Pirates Adventure 
Mission Impossible 
Voodoo Castle 



ADVENTURES are available for Pet™, 

Sorcerer™, Apple™, TRS-80™ Microcomputer, 

and other major personal computers. 




The Count 
Strange Odyssey 
Mystery Fun House 
Pyramid of Doom 
Ghost Town 



cr 



Look ifvho*s raving 
about ADVENTURE 

Out of 50 programs reviewed, Adventure was 

rated No. 1 ! "Highly recommended. " 

80 Software Critique 

"Adams' Adventure is exquisite. It is a true 

tour-de-force ..." 

Recreational Computing 

It is worth the money to buy a computer just to 

play Adventure." 
Software Directory Winter 1980 

"... Truly absorbing simulations. These games require 

you to be inquisitive, innovative, a thinker, a risk taker, a 

logician, a warrior, and a lover of real challenges — in 

short, an Adventurer." 
Ramon Zamora, Recreational Computing Issue 4 

I LOVED IT! There was a real challenge to this program ..." 
Captain 80, 80 Microcomputing Issue 1 

Adventures 1-9, $14.95 each 
TO ORDER: CALL TOLL FREE 

1-800-258-1790 

JgJ^ (In NH call 673-5144) 
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SOUND FOR YOUR 
COMPUTER is a program for 
Apple, Atari, and S-80. 

by James Hagani, James Garon, 
Rich Bouchard, and Mark 
Pelczarski 

It has often been said that the 
young are more easily influenced 
than the old. This has been quite 
true pertaining to the home 
computer field and nothing has 
had quite the impact upon it as 
has the box-office bonanza Star 
Wars. This motion picture has 
enhanced the whole genre of 
computer space games. These 
programs have become so popular 
that now a Star Trek program is 
more mandatory for a complete 
game library than an Inventory 
Controller is for a general ledger 
package. Therefore, it seems only 
fitting to center all of this month's 
column on the movie that started it 
all. 

This movie has one of the most 
interesting and difficult sound 
effects to reproduce: the swishing 
of the "light sabers" with which 
Obi-Wan Kenobi battled Darth 
Vader. The creation of this sound 
effect requires a very low humming 
tone followed by an increasing then 
decreasing pitch of a similar hum. 
On the three computers covered, 
the Atari, Apple and S-80 Model 1, 
a very high pitch was more easily 
obtained than a low one. In fact, 
the highest tone possible is too 
high for the human ear to 
recognize! This interesting quirk 
in the machines' generation ot 
sounds makes the "saber sound" 
very difficult to perfect. 

Following are short subroutines 
that generate this sound effect. If 
you have any suggestions for 
possible sound effects or have one 
you think would be of general 
interest, please feel free to send 
them to one of us in care of this 
magazine. 





\pple Version 


150 


GOSUe 480 




210 


FORI = 1 


TO 200 


220 


i T255,l 




225 


FORP = 1 


TO 8 


226 


ItXTP 





SOUND FOR YOUR 

COMPUTER 



230 ICXT I 

240 FOR P = 250 TO 50 STEP - 2 

250 S F,2 

260 VEa P 

270 FOR P = 50 TO 250 STEP 2 

280 i TP,2 

290 NEXT P 

300 GOTO 210 

470 END 

480 FOR I = 768 TO 833! REM) P: POKE 

i,p: next I 

500 DATA 201,84,208,15,32,177,0, 

32,248,230,138,72,32,183,0,2 

01,44,240,3,76,201,222,32,17 

7,0,32,248,230 
520 DATA 104,134,3,134,1,133,0,1 

70,160,1,132,2,173,48,192,13 

6,208,4,198 
530 DATA 1,240,7,202,208,246,1 

66,0,208,239,165,3,133,1,198 

,2,208,241,96 
580 POKE 1013,765 POKE 1014,0: POKE 

1015,3 
590 RtlURN 
-^- 


Atari Version 


10 SOIM) 0,255,10,8 

20 SOUND 1,254,10,8 

30 SOUND 2,253,10,8 

40 SOM) 3,252,10,8 

50 GOSUE: 120:GOSUE: 120:GOSUe 120 

60 SOUND 0,246,10,15 

70 SOIM) 1,247,10,15 

80 SOUND 2,248,10,15 

90 SOIM) 3,249,10,15 

100 GOSUE 120 

110 GOTO 10 

120 FOR X=l TO 100. 'NEXT X 

130 ktlURN 





S-80 Version 



10 im="BE. SURE TfCRE («E 27 SPACES 

20 I=VARPTR(MM«):j=PEEK(I+l)+256iPEEK(I+2) 

30 FOR K=J TO Jt26:READ X:POKE K,X:iCXT 

40 IF P£EK(16396)=2fll ft)KE16526,PEEK(I+l):P0KE16527,PEEK<I+Z)ELS 

E CMD"T":DEFUSRO=J:POKE14308,1 

50 DATA 205,127,10,77,68,62,1, 105,211,255,45,32,253,6(),1IIS,211»2 

55,45,32,253,13,16,238,175,211,255,201 

60 CIS 

70 FOR XX=1 TO 99:X=USR(256)!>Ba XX 

80 FOR XX=512 TO 320 STEP -6:X=(JSR(XX)JtCXT 

90 FOR XX=325 TO 512 STEP 6JX=USR(XX):fEXT:GOTa7l ^ 
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Three from Potkin. 



Wargamers delight! 



1). Kriegspiel II. 



A much improved two-player version of tlie 
original. Kriegspiel II is a war-gamer's 
delight. Choose the number of moun- 
tains (up to 200) and picl< a scenario from 
the 9,999 possible, and then watch the 
computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent 
or reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 




3). Warpath 



The Indians are on the warpath! The Chief, 
with 24 braves, is out to take the 
n at the fort, or at least to stop 
rcements from entering the stockade, 
neral, with his 14 troopers, is trying to 
the garrison before the flag is captured. 
The player determines the 
scenario through placement of 
boulders that provide both shelter 
and obstacles. Favorite scenarios 
may be replayed. 

S-80 Level II, 16K cassette $14.95 



CALL TOLL-FREE 
1-800-258-1790 

In NH call 673-5144 
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ESCAPE 



ESC A PE is an S-80 program 
requiring 16 K. 

by Joel Mick 

In ESCAPE, you are shown a 
maze being generated. After the 
maze is complete, you are shown 
your starting position on the left 
side of the maze, and the exit on 
the right side. About ten seconds 
later, the screen will clear and you 
will be shown a view as if you were 
standing in the maze. You will be 
facing right (towards the exit). To 
move forward, use the F key or the 
up arrow. To turn right, use the R 
key or the right arrow, and to turn 
left, use the L key or the left 



arrow. The A key or down arrow 
does an about face. Only forward 
actually moves you. The other 
commands only change the 
direction you are facing. If you are 
lost, pressing the H key will give 
you a bird's-eye view of the maze, 
your position, and the exit. When 
you escape, your score will be 
shown on a scale of 1 to 100. 

Following is a list of the major 

variables used: 

Z$ (12) Stores the picture of the 

maze. 

L$ (15) Stores the picture of the X 

so that it doesn't have to be set 



each time it is drawn. 

Z$ Used to draw the grid in line 9. 

When saving the screen, it is used 

as a dummy string. (See note 

above). 

M(273) Stores the status of each 

cell of the maze. (Whether there is 

a wall in each direction). 

X, Y Are the coordinates of the 

player's position in the maze. 

DX, DY Are the directions the 

player is facing. 

EX, EY Are the coordinates of the 

exit from the maze. 

Z4 Is the current score. 



Lines 1-7 J Initialize arrays and print instructions i 

1 CLEAR2999:DEnNTA-Z:ONERRORGOTO130:DIHZ$(lZ),L»(15) 

2 CLS!PK[NnAB(29)"ESCAPE";PRINnAE(16)"C0PYRIGHT (C) 1980 - BY 
JOEL MICK" 

3 PRINT"IN ESCAPE, YOU ARE SHOWN A mZE BEING GENERATED. AFTER T 
t€ MAZE IS CWPLETE, YOU ARE SHOWN YOUR STARTING POSmON ON TIC 

LER SIDE OF THE MAZE, AND Tf€ EXIT ON Tl€ RIGHT SIDE. ABOUT 
TEN" 

1 PRINT"SECONDS LATER, THE SCREEN HILL CLE/« AND YOU HILL BE SHO 
HN A VIEH AS IF YOU yCRE STAfCING IN TIC MAZE. YOU HILL BE FA 
CING RIGHT (TOWRD THE EHT). TO fKWE FORWARD, USE THE F KEY 
OR TIC" 

5 Pf?INT"UP ARROM. TO TURN RIGHT, USE TIC R KEY OR THE RIGHT ARRO 
«, WO TO TURN LER, USE THE L KEY OR THE LEFT ARROW. THE A KEY 

OR DOWN tmM DOES AN ABOUT FACE. Ott.Y FORWARD ACTUALLY MOV 
ES YOU." 

6 PRINT"TIC OTICR CWWAfCS ONLY OttNGE THE DIRECHON YOU ARE FAC 
INC. F YOU ARE LOST, PRESSING TIC H KEY WILL GIVE YOU A BIRDS E 
YE VIEW OF THE MAZE, YOI^ POSITION, AND THE EXH. )«N YOU ESCAP 
E, YOUR SCORE HILL K SHOWN ON A SCi^E OF 1 TO 100." 

7 PRINnAe(Zl) "PRESS <ENTER;> TO PLAY"; 



Line B: Wait for ENTER key. 
been hit for a while. 



Flash Message if ENTER hasn't 



8 FORZ=1T0100:A»=INKEY$;FA»=CHR$(13)T1CN9ELSENEXT:FPEEK(163V) 
=32PRINTe987 , "<ENTER:>" ; : G0T08ELSEF'RINTe987 , " " ; ! K)T08 

Line 9J Clear screeri. Compose grid in 1%, Print the grid 
i^oTi which the naze will be drawn. 

9 CLs:z$=ofi$( 191 )+STRiNGi(2, 131 ) :z»=z*+z$+z$+z»+z$+zi+z$:z$=z»+ 

Z$+Z*+C1«$(191)!F0RI=1T013!PRINTZ$;:NEXT:PRINTSTRING»(6^,131); 

Lines 10-33.' Draw the naze at randoM. When a wall is takeri 
away, reset it ori the screen and save the change in th« 
array M. 

10 DIW1(273) 

11 F0RI=lT0273:M(I)=ll!f£XT 



12 X=fi»fl)(21)!Y=RND(13):C=273 

13 FC=1T1CN31 

11 zi=o:z3=o:z5=o.*z2=o:K=x+2ii(Y-i):M(K)=-Aes(M(K)):c=c-i 

15 FXO21TlCNZt=M(K+l)>0 

16 FY<>13T1CNZ3=«(K+21)>0 

17 FX<>1THBG5=M(K-1)>0 

18 IFY<>1THENZ2=M(K-21)>0 

19 Zl=-Z4-Z3-Z5-Z2 

20 F(Zl<3ANDRM)(15)<3)OR21=0THEN31 

21 F'0=RM)(1) 

22 0NP0G0T023,25,27,29 

23 FN0TZ1THEN21ELSEM(K)=M(K)+1:X=X+1 

21 RESET(6xX-6,3xY-2):RESET(6)iX-6,3iY-1):RESET(6iX-5,3iY-2):RESE 
T(AiX-5,3itY-l);G0T013 

25 IFNOTZ3THEN21ELSEM(K)=M(K)+10:Y=Y+1 

26 RESET(6xX-1,3xY-3):R£SET(6xX-3,3iY-3):RESET(6iX-2,3xY-3):RESE 
T(6iX-1,3«Y-3):G0T013 

27 IFN0TZ5T1CN21ELSEM(K-1)=M(K-1)-1.*X=X-1 

28 RESET(6»X,3xY-2):R£SET(6xX,3iY-1)!RESET(6xX+1,3xY-2);RESET(6i 
X+1,3iY-1):G0T013 

29 FN0TZ2THEN21ELSEM ( K-21 ) =M ( K-21 ) -1 ! Y=Y-1 

30 RESET(6«X-1,3xY):RESET(6iX-3,3xY):R£SET(6*X-2,3«Y);RESET(6iX- 
1,3»Y):GOT013 

31 X=RND(21);Y=RM)(13) 

32 FM(X+21x(Y-1))>0TH£N31 

33 C=C+1!GOT013 

Line 3i; Pick the initial position and exit and draw then. 

31 X=1:Y=RND(13):EX=21;EY=RND(13);RESET(127,EYi3-2):RESET(127,EY 
X3-1 ) :RESET( 126,EYi3-2) :RESET(126,EYi3-1 ) :F0RX1=Xi6-1T0Xi6-1 :SET 
(Xl,Yi3-2):SET(Xl,Yx3-l):f£XT 

Line 351 Set tip the initial direction and save the picture 
of the rtaze in array Z$ (see note). 

35 DX=1;DY=0:FORZ5=0TO12;F'OKEVARPTR(Z$)+1,(Z5-INT(Z5/1)i1)i61:PO 
KEVARPTR(Z$)+2,60+INT(Z5/1);Z$(Z5)=Z$!NEXT:Z$(Y-l)=CHRt(191)+STR 
M;$(2,131)+RIGHT$(Z$(Y-l),61);FM(Y>;21-11)=-10RM(Yx21-11)=flTHEN 
Z$(Y-1)=CHR$(191)+" "+RIGHT$(Z$(Y-1),61) 
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Line 36! Let the player e.-onirie t^e completed naze for a 
little while, then erase it arid draw the "X" (see line 
131). 

36 FOF;Z5=lTO3000INEXT;as:GOSUE:13i:Z'i=175 

Lines 37-50'! Get player's Move. If it is not valid, sich 
3S Moving into a wall, theri igriore it. If it is valid, 
then change player's position or directiori, arid draw 
the ri€w perspective. 

37 G0SUE56 

38 A$=INKEY$!IFA»=""THEN38 

39 IFA$="R"ORA$=CHRt(9)THENIFDX=lTHEi®X=0:DY=l!GOTO37ELSnFDY=lT 
tCNDY=0!DX=-l!GOTO37ELSEIFDX=-lTHENOX=0:DY=-i:GOTO37ELSEDY=0:DX= 
UGOT037 

10 IFA$="L"Of;A$=CHR$(8)THENIFDX=lTHENDX=0:DY=-l!GOTO37ELSEIFDY=l 
THENDY=0 :DX=1 :G0T037ELSEIFDX=-1THENDX=C !DY=1 :GOT037ELSEDY=0 !DX=- 
l!GOT037 

11 FA*="A"ORA$=Ctl<<(10)THEf«)X=-DX:DY=-OY:GOTO37 

12 IFA$="H"THENZ1=Z1-10!GOTO51 

13 IFA$<>"F"Af«)A$<>M« ( 91 ) THEN38ELSEZ1=Z1-1 
11 IF(DX=-lANDX=l)0R(DY=-lANDr=l)THEN38 

15 IFDX=lANDX=EXAf«)Y=EYTHEN51 

16 IFDX=lAND(M(P)=-10Rt1(P)=-ll)THEN38 

17 IFDY=lAND(M(P)=-10ORM(P)=-ll)THEN38 

18 IFDX=-lA«)(M(P-l)=-ia<«(P-l)=-ll)THEN38 

19 IFDY=-lAf«)(M(P-21)=-10OR«(P-21)=-ll)THEN38 

50 x=x+ox:y=y+dy:goto37 

Lines 51-53! This routine draws the naze fro»i Z*. 

51 CLS:FORC=OT012!Ff;INTZ$(C),*:NEXT:PRINTSTRING»(61,131); 

52 FORXl=X«6-1TOX)«6-l!SET(Xl,Y)c3-2):SET(Xl,Yx3-l)!NEXT!F'RINTe980 
."PRESS EffTER TO C0NTIM£":!F1<INTe919,"I AM FACING ";!IFDX=1T)CN 
Pfa:NT"EAST"!ELSEIFDX=-lTt£NF'RINT"WEST";aSaFDY=lTtCNF1<INT"S0UTH 
"!ELSEPRINT"NORTH"; 

53 A$=INKEY»:iFA$0<:ff($(13)Tt€N53ELSE37 

Lines 5^-55! Print the score and wail for player to press 
E^^IR before startirig a riew ga«e. 

51 PRINTe282,"Y0U fttDE ITI"|!PRINTei03,"F'R£SS ENTER TO PLAY AGAI 
N";!PRINT(?339,"Y0UR F'ERFORMANCE RATES";!IFZ1<lTHEN21=l!PRINTe361 
,Zi;ELSEIFZ1>100Tf£NZ1=100:PRINTe361,Zi;ELSEPRINTe361,Zi; 
55 At=INfIY»!FA»<::>Cm«(13)TftN55ELSERUN 

Lines 56-129! This roLitine draws the perspective view of the 
naze by checking what direction the player is facing, 
and whether certain walls exist or ret. 

54 M=1!P=X+Y)i21-21!PRINTeo;!FORZ5=OT015!PRINTL$(Z5);:^£XT!POKE16 
383,161 

57 IFDX=1ANDX=G<ANDY=EYTHNM=0 :F0RX1=28T099:R£S£T(X1 ,Xlx17/127) ! 
RESET(X1,17-X1i17/127):NEXT!GOT088 

58 IFDX=lAND(M(P)=-10(<«(P)=-ll)THENGOSUei26!G0T088 

59 IFDY=1AND(M(F)=-100RM(P)=-11)THENGOSUB126!GOT088 

60 IFX= 1 THENIFDX=-1 THENG0SUE;126 ! GOT088ELSEGOT062 

61 FDX=-lAND{M{P-l)=-10RM(P-l)=-ll)THENG0Sl«126!G0T088 

62 FY=lTHENIFDY=-lTf€NGOSUE;l26!G0T088ELSEGOT061 

63 IFDY=-1AND(M(P-21)=-100RM(P-21)=-11)THENGOSU6126:GOT088 
61 IFX=21THENIFDX=1THENG0SU£:127!G0T088ELSEG0T066 

65 IFDX=lAND(M(P+l)=-10RH(P+l)=-ll)THENG0SUei27:G0T088 

66 IFY=13THENIFDY=1THENGOSUE;127!GOT088ELSE68 

67 lFDY=lflND(M(P+21)=-100RM(P+21)=-ll)THENGOSUei27:GOT088 

68 IFX<3THENIFDX=-lTHENGOSUei27!GOTO88ELSEGOTO70 

69 IFDX=-1AND(M(P-2)=-10RM(P-2)=-11)THENGOSU£;127:GOT088 

70 ffY<3THENIFDY=-lTHEhCOSUE:127:GOT088aS£GOT072 

71 IFDY=-1AND(M(P-12)=-100RM(P-12)=-11)THENGOSUB127!GOT088 



72 IFX>19THENIFDX=1THENGOSUE:128!GOT088ELS£GOT071 

73 IFDX=lAND(M(P+2)=-10RM(P+2)=-ll)THENGOSUB128!GOT088 
71 IFY>11THENFDY=1THENG0SU£;128!G0T088ELSEG0T076 

75 IFDY=1AM)(M(P+12)=-100RM(P+12)=-11)THENGOSU£;128!GOT088 

76 IFX<1THENIFDX=-1THENGOSUE:128:GQT088ELSEGOT078 

77 IFDX=-lAND(M(P-3)=-10RM(P-3)=-ll)Tf£NG0SUei28:G0T088 

78 IFY<1THENIFOY=-1THENGOSUE:128:GOT088ELSE80 

79 IFDY=-1AND(M(P-63)=-100RM(P-63)=-11)THENGOSUB128:GOT088 

80 IFX>18THENIFDX=lTt€NG0SUei29:G0T088ELSE82 

81 IFDX=lAND{M(P+3)=-10fiM(P+3)=-ll)THENG0SU6129!GOTO88 

82 IFY::-10THENIFDY=1THNGOSUB129!GOT088ELSE81 

83 IFDY=lAND(M(P+63)=-10ORM(P+63)=-ll)TtCNGOSUE:129!GOTO88 
81 IFX<5THENIFDX=-1THENGOSUE;129!GOT088ELSE86 

85 IFDX=-lAhC{M(P-1)=-10RM(P-1)=-ll)TfCNG0SUE;129:G0T088 

86 IFY<5THENIFDY=-1THENG0SU£:129!G0T088ELSEG0T088 

87 IFDY=-lAND(M(P-81)=-10ORM(P-81)=-ll)THENGOSl«129 

88 FX=EXAW)Y=EYANODX=lTHENPRINTe206,CHR$(170)STRING$(11,191)" E 
XIT "STRING$(11,191)Cff($(119):!F0RC=256TG768STEP61!PRINTeC+11,CH 
R'$(170)STRING$(3,191);!PRINTeC+16,STRING$(3,191)CHR»{119);!fOT 

89 IF(DX=-1ANDY=1)0R'(DY=1ANDX=1>THEN91 

90 IF(DX=1AND(M(P)=-100RM(P)=-11))OR(DY=-1AND(M(P)=-1QRM(P)=-11) 
)Tf€N91 

91 IFDY=1AND(M(P-1)=-10RM(P-1)=-11)THEN91 

92 IFDX=-lAND(M(P-21)=-100RM(P-21)=-ll)TtO91 

93 FORX1=OTO11:PRINT061xX1+5O,CHR*(2O6) ', !fe(T!F1<INT81 010, STRINGS 
(13,32) ; !P0KE16383,32:A$=STRING$(11,191) !FQRC=212T0818STEP61!PRI 
NTeC,A$;!NEXT 

91 IF(DX=lANDY=l)0R(DY=-lANDX=l)TfCN99 

95 IF(DY=lAh«)(M(P)=-lORM(P)=-ll))(]R(DX=-lAM)(h(P)=-10ORH(P>=-ll> 
)THEN99 

96 IFDX=1AM)(M(P-21)=-10GR«(P-21)=-11)THEN99 

97 IFDY=-1AND(M(P-1)=-10RM(P-1)=-11)THEN99 

98 FORXl=0TO15!PRINTe61xXl,Ct«$(206);!NEXT:A$=STRING$(11,191):FO 
RC=192T0768STEP61!Pf;INTeC,A»; !hOT 

99 IFM=OTFCNRETURN 

100 ff(DX=-lANDY=l)OR(DY=lAM)X=l)THEN106 

101 in)X=lAND(M(P+l)=-10OW1(P+l)=-ll)THENlfl6 

102 FDY=1AND(M(P+20)=-10R«(P+20)=-11)THEN106 

103 IFDX=-lAND(M(P-22)=-10ORM(P-22)=-ll)Tt€N106 
101 IFDY=-1AND(M(P-21)=-10RM(P-21)=-11)THEN106 

105 FORX1=81T093:RESET(X1,X1x17/127):RES£T(X1,17-X1x17/1Z7)!NEXT 
! PRINTe362 , STRING* ( 5 , 188 )! :PRINT(?682 , STRING! ( 5 , 131 ),* :F0RC=126T06 
18STEF'61!PRINTI?C,STRING$(6,191);!fOT!F'RINTe303,CHR<(191);!PRINT 
P367,CHR$(191) ; !PRINTI?687,CHR*(191) : !PRINTe751,CHR*(191) ! 

106 IF(DX=1AM)Y=1)QR(DY=-1AM)X=1)THEN112 

107 IFDX=lAND(M(P-20)=-10ORM(P-20)=-ll)THEN112 

108 IFDY=lA^(M(P+21)=-10R«(P+21)=-ll)TftN112 

109 IFDX=-lA>«)(M(P-l)=-10OR«(P-l)=-ll)THEN112 

110 IFDY=-lAND(M(P-22)=-10RM(P-22)=-ll)THEN112 

111 F0RXl=31TO13!RESET(Xl,Xli17/127)!RESET(Xl,17-Xlx17/127)!NEXT 
: PRINTI?337 , STRING* ( 5 , 188 ) J ! F'RINTe657 , STRING* (5,131);! FORC=10 OT05 
92STEP61!PRINT0C,STRING*(6,191) ; !f£XT!F'RINTe272,CH<*(191) ! :F1<INT 
e336,CHR*(191);!PRINTI?656,CH<*(191);!F1<INT072O,CHR*(191); 

112 IF>f=lTHENRETURN 

113 IF(DX=-1ANDY=1)0R(DY=1AM)X=1)THEN119 
111 IFDX=lAND(M(P+2)=-10ORh(P+2)=-ll)THEN119 

115 IFDY=1AND(M(P+11)=-10R'M(P+11)=-11)THEN119 

116 IFDX=-lAW)(M(P-23)=-10ORM(P-23)=-ll)TtCN119 

117 IFDY=-lAND(M(P-12)=-10f,'M(P-12)=-ll)THEN119 

118 F0RXl=73T079:RESET(Xl,Xli17/127)!RESET(Xl,17-Xli17/127)!fOT 
!PRINTei21,STRINGt(3,176) ;Crt<*(191) ; !F1<INTei85,STRINGt(1,l9l) ; !P 

rint(?519,string$(i,i91);:f-rinti?613," ";chr«(191); 

119 if(dx=1a«)y=1)0r(dy=-1andx=1)then125 

120 IFDX=lAND(M(P-19)=-10ORM(P-19)=-ll)THEN125 

121 IFDY=1AM)(M(P+12)=-10RM(P+12)=-11)THEN125 

122 IFDX=-lAND(M(P-2)=-10ORM(P-2)=-ll)THEN125 

123 IFDY=-1AM)(M(P-13)=-10RM(P-13)=-11)THEN125 

121 FDRXl=18T051!RESET(Xl,Xlx17/127)!RESET(Xl,17-Xlx17/127)!NEXT 

continued on page 86 
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MONSTER MAZE 




WITH SOUND 



MONSTER MAZE is an S-80 
program recfulrini; 16 K. 

by Joel Mick 

Welcome to Monster Maze. You 
will study a maze as 1 create it, but 
when it's complete, I'll erase the 
picture. Then the only way to see 
the walls is to move into them. 



which costs points. To move, use 
the arrow keys, or if you wish, use 
'U' for up, 'D' for down, 'R' for 
right, and 'L' for left. Your object 
is to escape the maze without 
getting eaten by the monster 
(letting him land on you). You will 
start on the left side of the maze. 



and the monster will enter the 
maze upon your initial move. You 
and the monster are both displayed 
as white boxes so you should keep 
aware of your position. You lose 
one point every time you hit a 
wall, which will then appear to 
help you find your way out. 



Lines 1-11! Irdtialize Machine language sourid routine; 
print heading; wait for ENTER. 

1 CLEAR5I)0:DEFINTA-Z:DATA205,127, 10, 77,68,62,1, 105,211,255,15,32 
,253,60,105,211,255,15,32,253,13,16,238,175,211,255,201 

2 m«="here's wfcre the sound goes" 

3 i=yarptr' ( m$ ) : j=f'eek (i+l ) +256xfeek ( 1+2 ) ! f0rk=jt0j+26 ! reaox ! poke 
k,x:next 

I rFF'EEK(16396)=201FW(E16526,PEe!(I+l);F'OKE16527,PEEK(I+2)ELSEC« 
D"T"!DEFUSR0=j;POKE11308, 

5 CLS:PRINTTAe(20)"MONSTER MAZE HCTH S0UND":PRINTTA£;(15)"C0PYRIG 

HT (C) 1980 - BY JOEL MICK 

10 PRINTg981, "PRESS <INTER.> TO BEGIN"! 

II FOR'Z=lT0125:A$=INKEY$:iFA$=CHR-$(13)THEN12ELSEh£XT!FPEEK(1631 
7)=32Tie(PRINTe987,"<ENTER.>";!G0T011ELSEF'RINTI!987," ";iGOT 
Oil 

Lines 12-13! Create the grid upon which Maze will be drawn. 

12 S=100i:CLS:A$=CHR»(191)+STRING$(2,131);A$=A$+y^$+A$+A$+At+A$+A 
$ ! A$=A$+A$+A$+CHR$ ( 1 91 ) ! F0RI=1 T013 : PRINTA$ ! ! NEXT : F'RINTSTRING$ (61 
,131); 

13 F'RINT"«ONSTER «AZE"TA£:(52)"BY JOEL MICK"; 

Lines 11-37! Draw the naze at raridoM. When a wall is taken 
away, reset (erase) it ori the screen srti riote charrge in 
the array. 
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DIMW(273),T{273) 

F0f:I=lT0273!W(I)=li;NEXT 

^=RND(21)!E:B=RN0(13):C=273 

FC=1T1£N38 

Z1=0 !Z1=0 :Z2=0 !Z3=0 !K=AA+2lJi(Be-l ) :W(K)=-AE;S(W(K) ) !C=C-1 

IFAAC21THENZ1=W(K+1)>0 

IFEBC13THENZ1=W(K+21)>0 

IFAAOlTHENZ2=W(K-l)>0 

IFeBOlTHENZ3=W(K-21)>0 

Z5=-Z1-Z1-Z2-Z3 

IF ( Z5<3AN0R-ND (15 )<3 )ORZ5=0THEN35 

H=RND{1) 

ONHG0T027,29,31,33 

IFN0TZ1THEN25ELSEW(K)=W(K)+1:AA=AA+1 

Z=ySR(900 ) :R£SET(6xAA-6,3«f;-2) !R£SET(6xAA-6,3xEf-l) !RESET(6x 

■5,3xBB-2)!RESET(6xAA-5,3iBe-l)!G0T017 

IFN0TZ1THEN25ELSEW ( f! ) =W ( K ) + 1 ! E£=Et;+l 

Z=USR ( 9 ) ! RESET ( 61AA-1 , 3xEf ;-3 )! RESET ( 6xAA-3, 3xEe-3 ) ! RESET ( 6» 

■2,3xE:B-3)!RESET(6xAA-l,a«ES-3)!G0T017 

IFN0TZ2THEN25ELSEW(K-l)=W(K-l)-i:(W=AA-l 

Z=USR(900 ) :RESET(6xAA, 3x68-2) !RESET(6xAA,3xE€:-l ) !RESET(6«^+1 



,3xB£:-2) :RESET(6xAA+1 ,3xBB-l ) IGOTOIZ 

33 IFNOTZ3THEN25ELSEW(K-21)=«(K-21)-10!BB=BB-1 

31 Z=USR (900)! RESET ( 6xAA-1 , 3xES ) ! RESET ( 6xAA-3 ,3x66)! RESET ( 6xAA-2 

,3xBE)!RESET(6xAA-l,3xE:B)!G0T017 

35 AA=RND(21)!BE=RND(13) 

36 IFW(AA+21x(Ef;-l))>0THEN35 

37 C=C+1!G0T017 

Line 38! Let the player exanine the Maze for a while, then 
initialize score. 

38 PRINTTAB(21)"THE MAZE IS READY"! :FORI=lTO5000!NEXT:S=1000:a.S 
:PRINT(?896, "DRAGON MAZE"TA£:(51)"SC0RE ! 1000"! 

Line 39! Draw the outline of the Maze. 

39 PRINTI?0,STRING»(61,131);:PRINT(?832,STRING$(61,131);;FORZ=OT07 
68STEP61 : PRINTeZ , CHR» ( 191 ) ; ! PRINT(?Z+63 , CHR» ( 191 ) ; ! (£XT 

Lines 10-15! Initialize the starting positiori of player and 
Monster and draw theM. 

10 AA=l!BB=RND(13)!SET(2,E.E;x3-2)!SET(3,B£a;3-2)!SET(1,B8x3-2)!SET 
(5,BBx3-2):SET(2,BBx3-l)!SET(3,EiEa:3-l):SET{1,E:£3«3-l):SET(5,Bex3- 
1) 

11 Q=6xAA-1!P=3xBe-2 

12 WY=R'ND(13) 

13 RESET(126,3xWY-2):RESET(127,3xWY-2)!RESET(126,3xHY-1):RESET(1 
27,3xWY-l) 

11 JJ=21!KK=HY 

15 QX=6xJJ-1!QY=3xf(};-2 

Line 16! Start of gaMe loop. Checks if Monster is in sa«e 
location as player. 

16 IF JJ=(WlNDKK=E:BTHEN100ELSEPRINTI?981, "ENTER DIRECTION ' "', 
Line 17! Get player's Move. 

17 A$=INKEY$:iFA»=""TfCN17ELSEIFA$>="A"Af«)A*<="Z"F'RINTA»; 
Line 18! Call the routine to nove the Morister. 

18 G0SUES3 

Line 19! Check if Monster just Moved where you are. 

19 IFJJ=AAA^JDf(K=BBTHEN100 



Lines 50-531 Go to the routi les for i.ip, down, right arid 


76 GOSUE:79:Yl=3xES-3:y2=3xE:E:;Xl=6xAA-6!GOSUB10i:Xl=Xl+i:GOSUei01 


left. 


;G0T046 




77 G0SUE:79 : XI =6«AA-6 : X2=6xAA+ 1 : Y l=3xE:B-3 : GTRI FH 02 : G0TQ46 


50 IFA$="R"0R;fl$=CHR$(9)THENPRINT"R";;G0T055 


78 G0SUB79;X1=6*AA-6:X2=6»;AA+1 :Yl=3)«eE;:GOSUE;102:GOT046 


51 IFA$="L"0RA$=CHR$(8)T«NPRIfJT"L";;G0TiW1 




52 IFA$="U"0RA$=CHR$(91)THENPRINT"U"; :H)T068 


Line 79! Make soMe sound and subtract frow player's score. 


53 IFA$="D"OR'At=CHRt(10)THENPRINT"D"; :G0T072 






79 FORZ=775TO900:I=(JSR(Z):^EXT:S=S-l;F■RINT(?954,S;:R■£TURN 


Lirie 5^! Player hit invalid key, so call routine to SLib- 




tract froM score and nske sound. 


Lire 80 ; Routine for player won. 


51 G0SU£:79:G0T016 


80 PRINTe960, ; :PRINTTAE;(28)"Y0U HIN"TA£!(62) ; :AA=USR(0) :AA=USR(0) 




:aa=usr(0) 


Lines 55-631 Move-player-right-routine. If he hit a 




wall, go to the routine to draw the wall, 


Lines 81-82: ProMpt player for next qane. 


55 01=2:02=0 


81 PF;INT(?916, "PRESS ENTER TO PLAY AGAIN"! 


56 IFRIGHT*(STR$(W(M+21i(E8-l))),l)="l"TH£N75 


82 A$=INKEY* : IFA$<>Cf*;* ( 13 ) THEN82ELSERUN 


57 £=6*M-'^ ; F=3xES-2 ! FDRI=1 T03 




58 e=e+oi;f=f+o2 


Lines 83-99: Routine to Move mrister. 




83 IFAA>JJTHEN35ELS£IFBE>KKTfCN94 




84 IFAA<JJTHEN96ELSLil- b;B<F<KTtCN98 




85 IFJJ=21THEN94ELSEIFT( JJ+2lx(KK-l ) )>9THEN86ELSLLH<IGHT$(STR'$(H 




(JJ+21«(W;-1))),1)="1"THEN94 




86 01=2:02=0 


59 FORK=OT03;FORZ2=OT01 :RESET((HK,P+Z2) :nextz2,k;fork=oto3;forz2 


87 RX=6i.JJ^:RY=3iKK-2 


=otoi;set(e+k,f+Z2):nextz2,k;q=E!P=f 


88 FORI= 1 T03 : RX=RX+01 : RY=RY+02 


60 nexti 


89 FORK=OT03:FOB22=OT01:RESET([!X+K,QY+Z2)!NEXTZ2,K:FORK=OTG3!F[R 


61 AA=AA+01/2:EB=E£+02 


Z2=OT01!SET(RX+K,RY+Z2)!NEXTZ2,K:QX=R'X!QY=RY 


62 IFAA=21ANDE€;=WYTH£NeO 


90 NEXTI 


63 GOT046 


91 JJ=JJ+01/2:KK4(K+02 




92 T(JJ+21)i(Kf;-l))=T(JJ+2lx(KK-l))+l 


Lines 64-67! Move-player-left-routine. 


93 RETURN 




94 IFfa(=21THEN96ELSEIFT(JJ+2H!(KK-l) )>9THEN95ELSEIFIX(W(JJ+Zlx( 


64 Ol=-2;O2=0 


f(K-l))/10)=-lTHEN96 


65 IFAA=lTHOC6 


95 01=0!02=1:GOT087 


66 IFRIGHT$(STR$(W(AA+2lx(E;e-l)-l)),l)="l"THEN76 


96 IFJJ=1THEN98ELSEIFT( JJ+21)i<(KK-l) )>9THEN97ELSEIFRIGHT$(STR$(W( 


67 G0T057 


JJ+2lx(f(K-l)-l)),l)="l"THEN98 




97 01=-2:02=0:GOT087 


Lines 68-71; Move-player-up-routine. 


98 IFta;=lTHEN85ELSEIFT(JJ+ZU;(KK-l)) !9THEN99ELSEFFIX(W(JJ+2lx(K 




K-2))/10)=-lTHEN85 


68 oi=o:o2=-i 


99 oi=o:o2=-i:goto87 


69 IFEf.-lTI€N77 




70 IFFIX(H(AA+21x(Be-2))/10)=-lMN77 


Line lOO: Roi.itine for player lost. 


71 G0T057 






100 FOR2=l0050TOlOl50!I=USR(Z):NEXT:PRINTe960,;:F1^INTTAB(23)"THE 


Lines 72-74: Move-player-down-routine. 


DRAGON GOT YOU " '"!:S=1:G0SUB79:G0T081 • 


72 01=0:02=1 


Line lOi; Routine to draw a vertical lire. 


73 IFFIX(W(AA+21«;(EC-1))/10)=-1THEN78 




74 G0T057 


101 F0RYY=YlT0Y2:SET(Xl,YY):NeT:RETURN 


Lires 75-78; The four routines tihat draw the wall when hit. 


Line 102; Roijtine to draw a horiiorital lire. 


75 GOSUE79;Yl=3xeE-3;Y2=3«E:E;Xl=AA)K6;GOSUE;10i;Xl=Xl+i:GOSUE:10i:G 
0T046 


102 forxx=xitox2:set(xx,yi):next:r£turn ^ 



An S-80 One Liner 

1 CLEAR 195:R-RND(159)+32:A$=STRING»(64,R):F0R X=0 TO 1023 STEP 
64:PRINT(?X,A$;:NEXT X;S=RND(159)+32:C*=STRING$(64,S):F0R X=960 t 

d a STep -64'.print0x,c$;;next x;ruN 

Joe Hilman 
Crowley, Texas 



An S-80 One Liner 

1 CLS;PRINT CHR?(23):FuR P=15360 TO 16383 STEP' RND(79):F13f;E P,RN 
D(94):NEXT P:CLS:F0R P=163S3 to 15360 STEP -RN0(79);P0K£ P,RM3(9 

4):f€XT p:goto 1 

Shane Causer 
Brunswick, Georgia 
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Board Games-1, 
CS-3001 (16K) 

• Mugwump $7. 95 

Mugwump is a board game which uses 
a 10x10 grid on which four friendly 
Mugwumps are hiding. Your mission is to 
locate these mysterious animals and 
capture them. 

• Flip Disc 

Are you an Othello freak? Flip Disc is a 
program which will turn your computer into 
an excellent opponent. Three different skill 
levels, (good, expert, and genius), provide 
an introduction for the novice and con- 
tinuing interest for the experienced player. 

• Wumpus 

in game 1, you scour a network of 
underground caves in search of the prized 
Wumpus. Bagging a Wumpus wins the 
game, but if you accidentally stumble into 
his cave, the Wumpus will enjoy a tasty 
dinner of sauteed computer freak. 

• Wumpus 2 

If you master the dodecahedron cave 
network in Wumpus 1, you may proceed to 
Wumpus 2 which allows you to choose from 
five different caves, or you can design your 
own. 




• Qubic 

Qubic is a three dimensional Tic Tac 
Toe game. The game is played in a 3 
dimensional cube (4x4x4). The object is to 
outwit the computer and place four pieces 
in any straight line. 

• Bacl(gammon 

This is the TRS-80 adaptation of the 
popular board game. Backgammon uses 
graphics and all the standard backgammon 
rules, not a strange computervariation. The 
computer is your opponent in this version, 
written by Scott Adams of "Adventure" 
fame. 



WRITE FOR... 

FREE 

SOFTWARE CATALOG 



Space Games-3, 
CS-3002 (16K) 

• Ultra-Trek $7.95 

Ultra-Trek is a fast-paced version of 
Star Trek, complete with "real time" action 
graphics, lasers, Nilon space mines, high 
energy photon torpedoes, enemy ships that 
move, and an experimental ray which does 
something different each time you use it. 
You must act quickly to save yourself and 
the Federation. 

• Star Lanes 

Imagine yourself the president of an 
intergalactic shipping company. If you're 
successful, you may be named Imperial 
Advisor on Economic Affairs. Entrepre- 
neurs: to your ships. 

• Star Wars 

If you hate Darth Vader, you'll love Star 
Wars. This real time game is fun for aliens of 
all ages. May the Force be with you! 

• Romulan 

Your mission is to destroy an invading 

Romulan space craft. Maneuver through 

space and around stars looking for the 

deadly enemy, but be careful! The nasty 

VRomulans fire back. J 
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Air Traffic Controller, 
CS-3006 (16K) $7 95 

This real time machine language 
program puts you in the chair of an air traffic 
controller. There are 27 airplanes — jets and 
prop planes — which must be controlled as 
they land, take off and fly over your air 
space. You give the orders to change 
altitude, turn, maintain a holding pattern, 
clear for approach, and land at your two 
airports. This realistic simulation includes 
navigational beacons, and requires planes 
to take off and land into the wind. Air Traffic 
Controller was written by an air traffic 
controller and is a favorite of the Creative 
Computing staff! 



For the 
SERIOUS 

Game Player 

... 

seRsatioRal 
software 



Who Is Creative 
Computing? 

Creative Computing consists of five 
divisions serving you. Creative Computing 
magazine is the number 1 magazine of 
software and applications. Creative Com- 
puting Press publishes a wide variety of 
books, art prints, posters and T-shirts for 
the computer enthusiast. And Creative 
Computing Software produces and markets 
software on cassette and floppy disk for a 
wide variety of computers for home, school, 
and small business. 

If your dealer does not carry the full line 
of Creative Computing products, please 
send three first-class stamps for a free 
catalog of products. 




duenture 



Welcome to an astonishing new 
experience! ADVENTURE is one of 
the most challenging and inno- 
vative games available for your 
TRS-80. 

• Adventureland 

You wander through an enchanted 
world trying to recover the 13 lost treasures 
and encounter WILD ANIMALS, MAGICAL 
BEINGS, and many other perils and 
puzzles. 

CS-3008 TRS-80 16K Level II $14.95 

CS-3506 TRS-80 4BK DISK $24.95 

(Includes Pirate Adventure) 

• Pirate Adventure 

Can you recover LONG JOHN SILVER'S 
lost treasure. 

CS-3007 TRS-80 16K Level II $14.95 

CS-3506 TRS-80 32K DISK $24.95 

(Includes Adventureland) 



• Mission Impossible Adventure 

Will you be able to complete your mission in 
time? Or is the world's first automated 
nuclear reactor doomed? 
CS-3009 TRS-80 16K Level II $14.95 

CS-3507 TRS-80 32K DISK $24.95 

(Includes Voodoo Adventure) 

• Voodoo Castle 

Count Cristo has had a fiendish curse 
put on him by his enemies. Will you be able 
to rescue him or is he forever doomed? 
CS-3010 TRS-80 Level II $14.95 

(Available in November) 
CS-3507 TRS-80 32K DISK $24.95 

(Includes Mission Impossible') 

• The Count 

You'll love this Adventure; in fact, you might 
say it's LOVE AT FIRST BITE . . . 
CS-3011 TRS-80 Level II $14.95 

(Available in November) 
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strategy Games, 
CS-3005 (16K) 

• Tunnel Vision $7.95 

You are transported into a massive 
labyrinth and must find the exit or be lost 
forever. This is an excellent example of 
three dimensional perspective using TRS- 
80 graphics. 

• Evasion 

In this real time game, you are pursued 
around the game board by an evil-looking 
snake. Variations of play include two 
different speeds and hyper-jumps vi/hich 
randomly relocate you on the board. 
Looking for an escape? Try Evasion. 

• Jigsaw 

Jigsaw is a computer-age puzzle game 
making extensive use of TRS-80 graphics. 
The computer generates a random puzzle 
and puzzle board. Using a combination of 
deductive reasoning and luck you must fit 
the graphically represented puzzle piece 
into place. 

• The Masters 

Are you a wandering pro or just a 
Sunday golfer who would like to keep in 
practice? Once you're on the green, a 
worm's-eye view is displayed for putting. 




• Motor Racing 



Motor Racing combines real time 

racing action with advanced graphics 

functions. The graphics and animation 

make Motor Racing fun to watch as well as 

V ^lay, 






r 



Pursuit Games, 
CS-3004 (16K) 

• Stocic Car Race $7.95 

stock Car Race is a real time racing 
game on a road race circuit. 

• Maze 

You are timed throughout your run and 
rated on the basis of elapsed time and the 
number of moves required to escape. Nine 
skill levels. 

• Indy Racer 

Indy Racer is a real time racing game 
for the TRS-80. Similar to the popular 
arcade-style driving games. 

• Depth Charge 

As commander of a destroyer, your 
mission is to destroy as many enemy subs 
as possible in this re-creation of the Battle 
of the Atlantic. 

• Kaleidoscope 

This graphics demonstration program 
turns your TRS-80 into a computer age 
kaleidoscope. 







Creative Computing 
Magazine 

Creative Computing has long been 
Number 1 in applications and software for 
micros, minis, and time-sharing systems 
for homes, schools and small busi- 
nesses. Loads of applications every 
Issue: text editing, graphics, communi- 
cations, artificial intelligence, simula- 
tions, data base and file systems, music 
synthesis, analog control. Complete pro- 
grams with sample runs. Programming 
techniques: sort algorithms, file struc- 
tures, shuffling, etc. Coverage of elec- 
tronic and video games and other related 
consumer electronics products, too. 

Just getting started? Then turn to our 
technology tutorials, learning activities, 
short programs, and problem solving 
pages. No-nonsense book reviews, too. 
Even some fiction and foolishness. 

Subscriptions: 1 year$15, 3years $40. 
Foreign, add $9/year surface postage, 
v$26/year air. 

Basic Computer Games^ 

Edited by David Ahl, this book con- 
tains 101 imaginative and challenging 
games for one, two, or more players — 
Basketball, Craps, Gomoko, Blackjack, 
Even Wins, Super Star Trek, Bombs 
Away, Horserace. Simulate lunar land- 
ings. Play the stock market. Write poetry. 
Draw pictures. 

All programs are complete with listing 
in Microsoft Basic, sample run and 
description. Basic conversion table in- 
cluded. 125,000 copies in print. 192 pages 
softbound.[6C]$7.50. 




IVIore Basic 
Computer Games 

Contains 84 fascinating and enter- 
taining games for solo and group play — 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, trek 
across the desert on your camel, navigate 
in deep space. 

All games come complete with pro- 
gram listing in Microsoft Basic, sample 
run and description. 192 pages soft- 
bound. [6C2]$7. 50. 




Tlie Best of 
Creative Computing 

The first two years of Creative Com- 
puting magazine have been edited into 
two big blockbuster books. American 
Vocational Journal said of Volume 1, 
"This book is the 'Whole Earth Catalog' of 
computers." [6A] Volume 2 continues in 
the same tradition. "Non-technical in 
approach, its pages are filled with infor- 
mation, articles, games and activities. 
Fun layout." —American Libraries. [6B] 
Each volume $8.95. 




Computer Coin Games 

Computer Coin Games by Joe Weis- 
becker aids newcomers to the field of 
computers by simplifying the concepts of 
computer circuitry through games which 
can be played with a few pennies and full 
sized playing boards in the book. 
Enhanced by outrageous cartoons, 
teachers, students and self-learners of all 
ages will enjoy this 96 page softbound 
book.[10R]$3.95. 



J 
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How To Order 



Send order and payment to Creative 
Computing, P.O. Box 789-M, Morris- 
town, NJ 07960. Add $1 .00 shipping and 
handling per order (foreign, $2.50) N.J. 
residents add 5% sales tax. Visa, 
MasterCharge and American Express 
orders welcome. For faster service, call 
in your bank card order toll free to: 
800-631-8112.(ln NJ, call (201) 540-0445.) 



creative 
GompatiR^ 
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Exciting 
Entertaining 
Software 
for the 
Appie ii and 
Appie Ii Pius! 

If you liked "Invaders", you'll 
love ASTEROIDS IN SPACE by 
Bruce Wallace. Your space ship is 
traveling in the middle of a 
shower of asteroids. Blast the 
asteroids with lasers, but beware 
— big asteroids fragment into 
small asteroids! The Apple game 
paddles allow you to rotate your 
space ship, fire its laser gun, and 
give it thrust to propel it through 
endless space. From time to time 
you will encounter an alien space 
ship whose mission is to destroy 
you, so you'd better destroy it 
first! High resolution graphics and 
sound effects add to the arcade- 
like excitement that this program 
generates. Runs on any Apple II 
with at least 32K and one disk 
drive. On diskette - 





^ 





Quality Software 




TO ORDER: 
CALL TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 
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OCTADRAW 




This program Is designed for an 
Atari with 8 K and at least one 
Joystick. 
by James Garon 

The other day I was happily 
engrossed in the wonders of Atari's 
Video Easel cartridge, when it 
occurred to me that it might be fun 
to write my own drawing program. 
One of the most fascinating things 
about the cartridge was the "quad" 
mode in which everything drawn is 
repeated in four-fold symmetry. I 
decided to improve on this and 
create eight-fold symmetry (hence 
the name, OCTADRAW). 

RUN the program, then press 
the START button at the right of 
the keyboard. You will see a 
blinking cursor in the center of the 
screen. Using the joystick in slot 
#1, you may move the cursor 
around the screen. With the fire- 
button pressed, the cursor will 
leave a trail of color as it moves. 
Seven mirror images of the line 
will also appear, three will match 
the cursor color, and four will be a 
different color. 

Pressing the SELECT button 
(Just above START at the right of 
the keyboard) will select the 
computer to do the drawing, while 
you sit back and watch. When you 
wish to continue drawing, just 
move joystick #1 and hold it until 
the computer finishes the line it is 
currently drawing. You may then 
add to the computer's drawing. 

Pressing the button with the 
word CLEAR on it will erase the 
current picture no matter who was 
drawing. 

If a joystick is placed in slot #2, 
you can control the colors that 
OCTADRAW uses. Pressing 
forward will change the 
background color; pressing left 
changes one of the drawing colors 
while pressing right changes the 
other. Holding the fire-button 
down during any of these three 
operations will change not the 
color but the luminance of the 
corresponding color. With eight 
shades of 16 colors for each of the 
three parts of the drawing, there 
are over two million possible color 



combinations! 

VARIABLES USED 

A=32: Added to x-value to center 

drawing 

C=3: COLOR value 

HI, H2, H4: Colors used in 

SETCOLOR x,Hx,Ly statements 

1: Loop variable 

KEY=764: PEEK address to 

determine which key has been 

pressed 

L: Used in line 10 to create mixed 

mode display 

Used in line 820 to determine 
length of line to be drawn by the 
computer 

LL L2, L4: Luminances used in 
SETCOLOR x,Hx,Ly statements 
P=95: Used to calculate reflections 
across X-axis 
Q=I27: Used to calculate 
reflections across Y-axis 
S: In line 100 S is the value of 
STICK(O). This determines the 
direction in which the cursor will 
move. 

In line 800, the computer "makes 
up" a value for S, and this value 
determines the direction of cursor 
movement. 

START=53279: PEEKing at this 
location reveals which of the 
START, SELECT, or OPTION 
buttons are pressed. 
T: In line 500, T gives the status of 
the fire-button: if pressed, I if 
not. This determines whether a line 
will be drawn or not. 

Similarly, in lines 800 and 810 
the computer "pretends" to press 
the fire-button about 9/ lOths of 
the time. You may change this 
fraction by changing "0.1" in line 
810 to some other fraction between 
and I. 

V; Reflects any activity from 
joystick #2. This changes the colors 
of the drawing. 

W: Tests for the fire-button on 
joystick #2. This affects the 
brightness of the colors. 
X,Y: The coordinates of the point 
to be PLOTted 

Z: Temporary storage used when X 
and Y are switched at the end of 
the drawing subroutine in line 900 






^^°^'■ 



Lines 10-20- Clear screeri; turn off 
cursor.; set. aiijress (LJ of display 
list for mixed sriphic ii»de title 
pase; print title pase. 

10 GRftPHICS PO(;E 752. 1L=6+.PEB« 740+2 

SeSPEEKC 742 > : POSITIOH 3,4? "oCtA-.«alJ" : 

POSITION 23.4 '• "ETv MIES GftRON" 

20 POSITIOH b,9 • "Press START" 
Line 30: Set colors for title pase; 
ckanse f oiirtK 1 ine to GRAPH I CS 2 
<Giarit !ette,'"5;' atxl fifth line to 
GRAPHICS 1 (MEOIUn letf^rs). Define 
KEY and START locitiors. 

30 SETCOLOR 2,2;4;SETC!X0R 4,2,4SETC0L0 

R 0-2, 8; POKE L+4-7:F«E L+5,6 KEY=7b4 ST 

ART=53279 

Line 40 ^ Wait until SThR:T button is 
pressed . 

40 IF PEEK: START >=7 THEN 40 
Line 50: X and Y are tl-e coordinates 
of the cursor - place it in the ceri- 
ter of the screen (■47,47;ij sel&rt full 
screen sraphics moide 7+lb; C=3 used 
in later COLOR' coMvands; HI, H2, H4 
are initial hues; LI, L2, L4 are 
luidiriances of the back around and thje 2 
i'auiirB colors. A is th* offset used 
to center the Picture in the >'. direc- 
tion; P arid are used to reflect the 
d'auiins across the X-axis, Y-axis and 
th* two dia»jna!s. 

50 X=47:Y=X: GRAPHICS 23C=3H1=12L1=8:H 

2=L 1 - L2=2 • H4=L2 ■ L4=H2 ■ COSLE 708 ■ H=32 ■ P=9 

50=127 

Line 100: Get status of Joystick #1 
(S)i ch,eck for SaECT button fSTART 
actually reflects the status of the 
STAR'T, SELECT, and OPT! OH buttons ba 
return ins a 6, 5, arid 3 respective la, 
if none are pressed START suill con- 
tain a 7 .') If SELECT is pressed, let 
thie coiDPuter take over at 1 ine 808 

100 S=STICK';0.)GOSUE' 500 IF PEEIX START ;= 

5 THEN 800 

lie GOTO 1130 
Lines 5M-5S0 fty-'e cursor in re- 
sponse to iiiotions of Joystick #1, 
Line 500 bliriks the cu'sor by alter- 
natins the currait color ':'C=3> with 
color 1 (set to black in line 700)' 
Chpeck for fire button fT=0 if 
pressed ) 

5ffii PLOT X+A,Y: COLOR l.'^LCT X+A.Y T=STRI 

G(0> 

Line 520 • If button is pressed, th«' 
C-C*T will e-iual C fwh.ich is 3/, and 
we draw in COLOR 3, otherwise (T=i;', 
C-CtT will be zero so we won't draw 
as the cursor iiioyes Subroutine 900 
dr-aws four of the eisht 1 ines and 
swaps X with Y in preparation for 
li-awihs th.e other four, wh.ich are 
d-awn (if T=0;' in COLOR 2. 

520 COLOR C-aiGOSHS JiJS COLOR 2-T-T-GO 

SUE 900 

Line 540- Here, me see if the CLEAR 
key has been pressed (actually, the 
"\" key) If 50, we clear the screen, 
re-center the cursor ard Jump to line 
700 which preserves any color changes 
that have been aiade 

540 IF PEEK KEY )=54 THEM POKE KEY, 8 -GRAF 

HICS 23X=47 Y=X:GC!TO 700 



Lil- 



let. -J-JC~--}- 



•SB' 



akes cai 



ivioveivient 



in all eisht direct! oris. Line 550 
checks for an even nuiViber from Joy- 
stick #1 CS); this indicates that t>.e 
stick IS pressed forw-a.-d (possibly di- 
asonally! The ajr-5'jr is then sioved 
continued nn page 68 
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Positions 
Available! 

Here at SoftSide, Hardside, 
The Software Exchange, and 
Ramware we are constantly on the 
lookout for good people. Our 
growth rate is such that new \\ 

positions are steadily opening up 
or being created, particularly in 
the realm of magazines, marketing, 
and management. At the moment 
we are looking for an accountant, a 
person with experience in magazine 
circulation, a person to organize 
and supervise our participation in 
computer shows around the nation, 
and a software editor. 

While New Hampshire wages are not the highest 
around, we offer a better scale of pay than most of ou 
competitors. Furthermore, our fringe benefits are 
excellent. Another bonus is that New Hampshire has no 
personal income tax or sales tax. 

Located in a beautiful area of southern New 
Hampshire, Milford is within an hour's distance from 
Boston, the Atlantic Ocean, and the White Mountains. 
Nashua and Manchester, New Hampshire's two largest 
cities, are but 15 minutes from Milford. Ski slopes 
abound in the region, as do fine restaurants, arts and 
crafts centers, and the New England countryside must 
be seen to be believed. 

if you are a hard-working, skilled person with 
experience in the fields of computing and magazines, 
and if you enjoy the relaxed country lifestyle with the 
convenience and cultural opportunities of major urban 
centers nearby, drop us a line. We might be good for 
each other. 

If you don't fit any of the aforementioned 
descriptions, don't despair. You might have a skill we 
could use. If you think that is the case, please contact 
us. A formal resume isn't necessary, just send a letter 
describing your skills, qualifications, and experience to: 

George Blank, 

P.O. Box 68, 

Milford, N.H. 03055 

re: Personnel Department 
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INTERNA- MAZE 




INTERNA-MAZEisfor a I6K 
Apple with Integer Basic. 

by Dennis Ward 

Here's a maze with a unique 
point of view: worm's-eye. Rather 
than the usual view from above, 
Interna-Maze lets the user try to 
escape from the maze by trial and 
error, with the perspective of one 
actually inside the maze itself. The 
user can elect to leave footprints 
to show direction in which he is 
facing, or employ an aerial view 
map of the maze with color 
differentiation to show where he 
has been. Furthermore, Interna- 
Maze lets the user select from ten 
levels of difficulty, providing 
anyone from the novice to the 
homing pigeon with a challenge. 

VARIABLES 
(in order of occurrence) 
The variables described as 

"Boolean" simply have a value of I 

for yes, 2 for no. 

G$ General input string 

H$ Compass directions ("North 
East South West") 

C(K) Array [0 to 3121] of map 
positions 

If C(K) = then you can't go 
there (color = black) 
If C(K)=1 then you've al- 
ready been there (color = red) 
If C(K) = 3 then it is part of 
the maze (color = violet) 

F Which foot you step with 
(- 1 is left, -I- 1 is right) 

MC Map color (constant; =3) 
(see C) 

TC Trail color (constant; = 1) 
(see C) 

FTS Boolean input; "has selected 
footsteps option?" 

MAPBoolean input; "has selected 
map option?" 

COMP Boolean input; "has 
selected compass option?" 

DIR Direction of travel 
(I = North, 2 = East, 
3 = South, 4 = West) 

A Random Integer (0-18) used 
to compute X for plotting 

B Random Integer (0-18) used 
to compute Y for plotting 

X Horizontal position for plot- 
ling (1 - 37) (= A*2 -H ) 

Y Vertical position for plotting 
(l-37)( = B*2-hl) 

SC Score (initialized at 360; ter- 
mination at 0) 



Input; Level of Difficulty; 
determines maze complexity 
Boolean; "can go left?" also, 
in Hnes 1 570- 1 630, random 
index to one of 4 corners in 
finding starting point. 
Boolean; "can go right?" 
Boolean; "can go up?" 
Boolean; "can go down?" 
lines 300-470 temporary 
counter variable 
lines 490-750 tells how far 
away turn is (0-5) 
lines 770-1 150 counter to 
look "I" spaces away 
Temporary counter variable 
for plotting 
Same as Q 

ASCII code of keyboard 
input 

Temporary horizontal pointer 
to keep track where you look 
from 

Same as TX, but is the ver- 
tical pointer 

A computed variable; for 
every possible TX, TY K is 
unique 

Constant; horizontal pointer 
(Remember where you are) 
also used to produce a tone 
variable (0-216) 
Constant; vertical pointer 
(Remember where you are) 
temporary horizontal pointer 
temporary vertical pointer 
QWQ Temporary variable; line 
number for gosub 



IN 
Z 

TX 



TY 



K 



XX 



YY 

E 
G 



:-LIST 
n 

L. 

6 
90 

100 



110 
120 

130 
HO 



150 
160 

170 

180 



REM XK INTERNA-MAZE xx 

REM XX DENNIS WARD xx 

REM %■*■ WRITTEN JULY, 1979 xx 
R01 

DIMENSION VARIABLES 

DIM G$(1),H$(21),C(3121):F= 

1 

GOTO H^O 

REM 

DR'AW MAZE 

GR :mc=3 

color=3:a= rnd (i9):e= rnd 

(i9):x=Ax2+i:Y=ex2+i: plot 

x,y;sc=360 

if rnd (100xsx3 then 260 

l=0: if a<1 then 1701 if scrn( 

X-2,Y)=0 T1£N L=i 

R-O: IF A>17 THEN 160 : IF SCRN( 

X+2,Y)=0 THEN R-1 

LtO: IF E;<1 THEN 190 : IF SCRN( 

X,Y-2)=0 TFEN U=l 



200 
210 
220 



230 



210 



260 
270 



280 
290 



310 
320 
330 

350 
360 
370 
380 

390 

m 
m 

130 

110 
150 
160 



170 
180 

190 
500 



510 



D=0: IF E:>17 THEN 200; IF SCRN( 

X,Y+2)=0 THEN D=l 

IF L+R+U+D-0 Tf£N 260 

GOTO 220+( RND (1)xl0) 

IF L=0 THEN 210.*A=A-i:X=X-2 

!SC=SC-i; HLIN X,X+1 AT Y: GOTO 

150 

IF F-0 TIEN 210:A-A+1:X=X+2 

:sc=sc-i: H-iN x-i,x AT y: goto 

150 

IF 11=0 THEN 210:B=E;-i:r=Y-2 

:sc=sc-i: vlin y,y+i at x; goto 

150 

if d=o then 2io:b=e;+i:y=y+2 
:sc=3c-i: ULiN y-i,y at x: goto 

150 

IF SC=0 THEN 1550 

A= RND (19):e;= rnd (19);X=Ax 

2+1!Y^E:»:2+1: IF SCRN(X,Y)=0 
THEN 270. • GOTO 160 
RETURN 
RTri 

DRAW CEILING 
C0L0R=7: FOR 1=1 TO 18 
HLIN 19-1,19+1 AT 19-1 
f£XT I 
RtM 

DRAW FLOOR 
COLOR=.i 
FOR 1=1 TO 19 
HLIN 20-1,18+1 AT 18+1 
NEXT I 

REM 

DRAW WALLS 
COLOR-12 
FOR' 1=1 TO 18 

m\ 

LEFT W^^ 
lUN 19-1,18+1 AT 19-1 
REM 

RIGHT WALL 
VQN 19-1,18+1 AT 19+1 
NEXT I 

GOSUE; 1230 : IF MAF-tl T1£N 170 
: CALL -936; GOSUE; 1230 ; PRINT 
"PUSH 'M' FH^ MAP" 
RETURN 
REM 

MAf(E RIGHT TURN 
GOTO 500+IxlO 

FOR Q=l TO 5; COLOR-i: '.'LIN 
0,38-0 AT 38-Q; COLOR-7; HLIN 
37-0,37 AT Q; C0L0F;=6; HLIN 
37-0,37 AT 38-Q; NEXT Q; RETURN 
FOR 0=6 TO lO; COLOR-i: MLIN 
Q,38-Q at 38-Q; COLOR-7: HLIN 

continued on page 64 
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MOONLANDING 




MOONLANDING is whiten in 






Applesoft and requires at least 
16 K. 


100 HOME : VTAB li: HTAe 16: FLASH 


1222 IF 17. > I AND RZ = 51 THEN 


: PRINT "MOON";: normal : mm 


HCOLOR= 3: FOR Gl = 1 TO TZ 


by Herb Sandy 


" ";: FLASH : F'Rint "landing 


: HFIOT X + 8 + Gl X 1.8,Y - 




": ot;mal 


i: f£XT 


You are in command of the 


120 GOSUB 5000 


1221 IF n > 1 AND RZ = 10 THEN 


'Eagle' lunar lander! Select the 




HCOL0R= 3: FOR Gl = 1 TO TZ 


minimum acceptable landing spot 


Clear hi-res screen fron last rm, 


: HFIOT X - 8 - Gl X 1.8,Y - 


size, and the craft's onboard 
guidance system will find and 


return to text screen. 


i: NEXT 


bring you within a reasonable 




Make sone raise. 


distance of a landing spot within 


1000 HGR : TEXT 


your specifications. From there 






you must control the ship 


Input the size of the landing spot. 


1210 POf(E 7623, ABS (200 - Y): POKE 


manually. The main rocket is 




7621,10: CALL 7625: IF TZ > 


controlled by paddle one while the 


1020 HOME :Ta = i; VTAB 12: INPUT 


1 THEN FOR Y8 = 1 TO 6 X TZ 


side thrusters are controlled by 
paddle zero. A word of caution — 


"INPUT LANDING SPOT SiZt (15 


: CALL 7618: NEXT 


you must land at a horizontal and 


-100) ;sn 




vertical speed of ten or less. 


1030 IF Sn < 15 OR Sn > 100 THEN 

1020 
lO'^'i UTAF: 201 PRTNT " flNF 


Check pro;;iHity of MOon surface. 


A$ - Used to accept keyboard 




entries. 


i.\i\J\J V 1 rtL' ^U 4 1 I\XlT 1 UltL. 


1260 IF Y > ( PEEK (7912 + X)) - 


T% - Thrust, a number from 1 to 


MOMENT PLEASE" 


6 THEN GOSUB 2000 


7, represents the rocket thrust 






being applied. 


Jump to sLibroutine to draw randoM 




81% - Landing spot size. 


MOon surface. 


Black out lander and related 
shapes. 


H - Horizontal speed. 




V - Vertical speed. 


1038 HCOLOR- 3: GOSUB 1800 


1265 IF TZ > 1 AND RZ = 51 THEN 


X, Y - Lander's position on the 
screen 


Initialize variables. 


HCOLOR- O: FOR Gl - 1 TO TZ 




: HFIOT X + 8 + Gl X 1.8,Y - 


F% - Fuel remaining 






Gl, J, J8, B, P - Loop index 
variables. 


1100 H = io:v = '»:a = 30o:x = 20: 

Y = 20:FZ = 20000 


i: NEXT : GOTO 1280 
1268 IF TZ > 1 AND RZ = 10 THEN 
HCOLOR- O: FOR Gl = 1 TO TZ 


R, T - Used to hold paddle values. 




; HFIOT X - 8 - Gl X l.e,Y - 
i: NEXT 


R% - Direction of horizontal 
thrust. 


Set up bottoM four lines of screeri. 


XI - Variable used to compute 


1120 yiAB 23: PRINT "VERT. SPEED 


1280 SCALE= i: HCOLOR- O: ROT= 

* rU". All 4 * T \/ \/ 


horizontal speed. 


=":; PRINT " HORIZ. SP 


: DRAW 1 AT X,Y 


Yl - Variable used to compute 


EED =" 


1300 FOR Gl = 1 TO TZ: HCOLOR^ 


vertical speed. 


IHO PRINT : F'RINT "FUEL ";; F-R'INT 


: DRAW 2 AT X,Y + 3 x Gi: NEXT 


B3 - Landing spot y-coordinate. 


ALTITUDE = " 




B2 - Center point x-coordinate of 


1180 HCOLOR- 3 


Redraw the landing spot if the 


landing spot. 




lander is close to the si.irface. 


Bl - Y-coordinate used in plotting 


Draw lander and related shapes at 




random moon surface. 


;;,y coordinates. 


1320 IF Y > ( PEEK (7912 + X)) - 
20 THEN HCOLOR- 3: HFIOT B2 
- SIZ / 2,B3 TO B2 + SIZ / 


2 REM X HOON LANDING x 


1200 SCALE= 1: HCOLOR= 3: ROT= 


^ RtM X BY X 


: DRAW 1 AT X,Y 


2,83 


6 REM X ^£RB SANDY x 






8 REM X (C) 1980 x 


1220 IF U > 1 THEN FOR Gl = 1 TO 


Jump to SLibroutine to print present 




jr. HCOLOR= 5: DRAW 2 AT X,Y 


status. 


Title arid jwp to subroutine that 


+ 3 X Gi: NEXT 




pokes in Machine langi.iage. 




1310 GOSUB 1680 
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1820 83 = 159 - ( INT ( RND (1) x 


5000 FOR' P = 7121 TO 7666: READ 




30)) 


n: POf(E p,n: next 


Get paddle vahjes. 


1810 FOR J = 62 - SI% / 2 TO B2 + 


5005 POKE 232, O: POKE 233,29 




si:/ / 2; HFIOT J,E;3: POKE 79 


5010 DATA 5,0,12,0,81,0,91,0,9 


1360 IF n. > 1 THEN T = PDL (1) 


12 + J,B3: NEXT 


3,0,133,0 


;n = T / 35: scale= tzj if 


1860 Bl = B3 


5020 DATA 15,15,15,51,51,16,39,6 


n = THEN 72 = 1 


1880 FOR J = B2 - SK / 2 - 1 TO 


0,28,36,63,63,63,63,63,51,51 


1380 R = PDL (0): IF R < 70 Tf£N 


STEP - i: GOSUB 1910 : NEXT 


,62,37,11,12,36,39,15,15,15, 


RX = lo: GOTO im 




15,15,60,63,63,63,63,63,10,1 


HOO IF R > 130 TtCN RX = 515 GOTO 


1900 Bl = B3 


5,15,15,15,15 


Hlfl 


1920 FOR' J = B2 + SK / 2 + 1 TO 


5030 DATA 37,63,63,63,63,63,63, 


H2fl R-/. = 


279: GOSUB 1910: NEXT : FW(E 


11,15,15,15,15,15,229,255,59 




- 16301,0: RETURN 


,255,59,12,15,13,13,15,28,63 


JijMp to SLibroutine to cortpute riext 


1910 F RND (1) > .6 THEN Bl = 


,63,63,12,15,15,6,0 


position OTi the screen, theri go 


Bl + 1.3: GOTO 1980 


5010 DATA 18,12,31,28,77,57,0 


back to nain loop at 1200. 


1960 Bl = Bl - 1,3 


5050 DATA 7,0 




1980 HFtOT J,Bi: POf(E 7912 + J,E! 


5051 DATA 99,177,223,63,1,32,12 


im GosuB i58o:x = X + h:y = Y + 


i: RETURN 


,101,13,21,182,183,109,28,12 


V: IF Y < = 11 THEN Y = 11 




,228,100,28,223,223,31,251,5 


H60 IF X < 21 THEN X = 21 


Check, to see if successful landing 


0,171,251,112,12,11,85,11,77 


H80 IF X > 259 THEN X = 259 


was nade. 


,109,5,10,56,32 


156C GOTO 1200 




5052 DATA 11,32,0 




2000 IF V < 1 AND X > B2 - SK / 


5051 DATA 219,219,219,219,219,2 


Subroutine to conpute next position 


2 + 3 AND X < E2 + SK / 2 - 


19,27,5,32,193,193,32,53,69, 


of lander. 


3 THEN GOTO 2060 


65,32,63,73,65,65,37,77,9,77 
,73,13,13,21,111,111,50,109, 


1580 IF R7. = THEN XI = OIYI = 


Urisuccessful landing, black out 


137,18,150,116 


- .5! GOTO 1610 


larider, jimp to explosion 


5055 DATA 18,86,19,150,18,51,15 


1600 IF R;^ = 10 THEN XI = .SIYl - 


SLibroutine, Jlimp to endirig. 


0,26,183,116,223,250,219,27, 


- .5; GOTO 1610 




63,255,219,219,59,223,31,31, 


1620 IF R;: - 51 THEN XI - - .8* 


2020 HCOLOR= O: DRAW 1 AT X,Y: GOSUE: 


223,27,32,32,3,96,67,5,0 


Yl = - .5: GOTO 1610 


6510 


5060 DATA 0,0,173,18,192,136,208 


1610 H = H + (T% x XI / 3,5):!.' = 


2033 FOR J8 = 1 TO 2000 : NEXT 


,5,206,200,29,210,9,202,208, 


V + (J7. * Yl / 3.5) + .12357 


2035 TEXT : HOtlE : VTAB lO: PRINT 


215,171,199,29,76,201,29,96, 


112?: RETURN 


"YOU HAVE JUST DESTROYED A F 


215,203,173,18,192,232,236,2 




FTY hILLION DOLLAR SPACECRA 


22,29,210,29,76,212,29,200,2 


Subroutine to print present status. 


FTII " 
2010 GOTO 10000 


01,223,29,210,238,96 


1680 VIAE: (21); POKE 36,13: PRINT 




Explosion subroutine. 


INT (y X 10);" "', 


Si.iccessful landing, draw larider ori 


651G HCOLOR'= 3: DRAW 1 AT X,Y - 


1700 WTAB (21); POKE 36, 3i: IF H 


stirface, rate player as pilot, ji.ifip 


3; FOR B = 1 TO 10: NLXT : HCOLOR'- 


> THEN PRINT ">"; INT (H 


to ending. 


O: DRAW 1 AT X,Y - 3 


X 10);" ": GOTO 1710 




6520 HCOLOR= 3; DRAW 5 AT X,Y - 


1720 PRINT "<"; ABS ( INT (H x 1 


2060 FOR Gl = 1 TO TZ: HCOLOR- 


17; FOR B = 1 TO 10; NEXT : HCOLOR- 


0));" " 


; DRAW 2 AT X,Y + 3 X Gi: NEXT 


O; DRAW 5 AT X,Y - 17 


1710 VIAE; (23); POKE 36,5: PRINT 


: FOR B = 1 TO 3000: NEXT 


6530 SCALE= 2; HCOL0R= 3: DRAM 5 


Fir "'f'F7. = f:^ - 10 X m 


2062 TEXT ; HOME ; VIAE: 10 ; PRINT 


AT X,Y - 3i: FOR B = 1 TO 1 


- D: IF F7. < = 1 THEN U = 


"THE EAGLE HAS LANDED. CONGR 


O; NEXT ; HCOLOR- O: DRAW 5 AT 


v,fy. = 


ATULAHONSI'" 


X,Y - 3i: SCALE- i: RETUR'N 


1760 ITAE: (23); POKE 36,25; PRINT 


2063 F-RINT ; F^RINT "YOUR RAHNG 




INT (E:3 - Y - 5)1" "; 


AS A PILOT IS "; INT ((FZ / 


Ending roi-itine. 


1780 RETURN 


500) X (10 - V) X ((101 - SI 
Z) / 20 + D) 


. . . 


Subroutine to draw randort noori 


2070 GOTO 10000 


10000 VTAB 20 ; HTAB i: PRINT "PL 


si.irface. 




AY AGAIN ? (Y OR N)";; GET 




Subroutine to poke shape table and 


M 


18D0 E2 = INT ( RND (1) x 280); IF 


soi.rid subrotjtine into nenory. 


10005 IF At = "Y" THEN 1000 


B2 < Sn 7 2 + 2 OR B2 > 279 




10010 IF A$ < > "N" THEN 10000 


- SK / 2 - 2 THEN 1800 




10100 mME ; END Q 
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EARTH-PORT H 



EARTH PORT II is an S-80 
prof^ram requiring; 16 K. 

by Phillip Case 

When this simulation begins, 
you will find yourself at the 
controls of a real-time spaceship 
lander. In the initial phase of the 
game you enter your military rank. 
The higher your rank, the harder it 
is to safely land at the spaceport. 

You control the motion of your 
ship by the use of the four arrow- 
keys. For instance: To reduce your 



downward momentum, depress the 
up-arrow. This program will 
respond to two keys pressed at the 
same time, i.e. the down and left 
arrows together. 

Once you safely guide your ship 
to within a certain proximity of the 
landing pad, your on-board 
computer will automatically switch 
your view screen to your close-up 
scanner. 

Your goal is to land safely in the 
landing bay before your limited 
oxygen runs out. The higher your 
rank, the less oxygen you start out 



with. Also, upon a successful 
landing, you will be scored for 
your flight performance. Your 
score is based on the amount of 
remaining oxygen and your rank. 
Caution; The higher your rank, 
the greater your initial momentum. 
At a rank of General, you have 
only seconds to prevent a fatal 
crash into the alien mountainside. 







ltt%%%tX*tfiXttttX»1it*X*tXtt»tX* 

* EARTH-F'OF:T II i 

i; ( 



(C) COPYRIGHT 1980 



X BY WILLIAM PHIUJP CASE, JR\ i 

1 ' XXtXXXXXXXXXXXtXXXXXXXXXXXXXXXMX 

Lines 3-1! Clears rtemiryi screen, sets variables to int- 
eger for speed, displays title, and builds Ai, B*, 
and Cf which are used in the destructiWi roijtirie. 

3 cleariooo:cls:definta,x-y:fwntchr$(23);" 



EART.H-PORT II" 
1 CLEAR1000:FORX=1T0128;E:$=E:$+CHR$(RND(60)+130);A$=A$+CHR$(RND(6 
0)+130)tCt=C5+CHR$(F,»(60)+130):N£XT 

Line 51 Inputs rark 

5 CLb;iNPUT"ENTER YOUR RANK! 



1. PRIVATE FIRST CLASS 

2. CORPORAL 

3. CAPTAIN 
1. MAJOR 

5. COLONEL 

6 . GENERAL " ,* SL ! CLS .' IFSL<10RSL>6THEN5 

Lines 20-30! Creates outliries arid displays rarik ori screeri. 

20 FORX=OT0127:SET(X,38)!SET(X,0/:S£T(X,t7)!fEXT!FORY=OTOV!SET( 
0,Y):SET(1,Y)!SET(126,Y)!SET(127,Y):N£XT!FORY=39T016!S£T(38,Y)!S 
ET(3O,Y):SET{69,Y)!SET(68,Y)!NEXT!PRMe877,"RANf;!";!0NSLG0T021, 
22, 23, J", 25, 26 

21 P$="PRIVATE FIRST CLASS" :GOT030 




22 F;$=" 


CORPORAL 


"!GOT030 


23 Rt=" 


CAPTAIN" 


!GOTO30 


2'\ R*.=" 


MAJOR"! 


GOTC30 


25 R$=" 


COLONEL" 


:GOT030 


26 Rt=" 


GE^£RAL" 


:goto30 


30 PRINT(?V31,Rt; 





Lines 35-^5! Sets variables for prinary approach, then 
branches to that roijtine at lire 11000. 

35 X1=54:y1=32 

10 HS=SL«2!US=-SL:O=30+(40-(SLx10)):X=10:Y=10 

15 GOSUE:11000: ' PERFORM PRIMARY AFT'ROACH ROUTDC 

lines 16-51! After successfully approaching the lardirrg 
bay, this routine puts the close-L() view ori the 
screen. 

16 PRINT(??69,STRING$<60,191)+CHR$(190)+CHftt(189);:PRINTe705,STRl 
NG$(22,191)+" LANDING BAY "+STRING$(22,191)+CHR$(188)+€f«$(176); 
:PRINTI?611,STRING$(25,191)+CHR*(181)+STRING$(6,176)+STRING*(22,1 
91)+CHF:t(188)+CHF:$(176)! 

17 PPINTffi77,STRING$(25,191)+CHR$(119)+STRING$(6,32)+STRING$(20, 
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191)+CHRt(180);.'PRINTKil3,STRING$(25,l?l)+Clf$(lt9)+STRING$(6,32 

)+CHR*(16B)+STRING<(17,191)+CH^'$(180); 

18 PRINTM19,STRING${25,191)+CHR$(11't)+STRING$(7,32)+CHR$(181)+S 

Tf;TNG${H,191)+CHR${189);:PRINTif3e5,STRING*(2^,191)+CHR$(181)+ST 

RING$(9,32)+Ctf;:*(184}+STRING$(10,191)+CHR$(iSi)ti;HR*(H1)+CHR»(l 

7 b)', 

4? Ff;IMT(?321,STRING$(21,191)+CHR*(lt9)+STRING$(10,32)+a*;$(176)+ 

Cff'*{18n)+CHRt(181)+STRING*(7,191)+CW<$(118);:PRINTe257,STRING$( 

2'!,1?1)+CHRI(118)+STRING$(13,32)+CHR$(170)+STRING$(3,191)+CHR$(1 

7(4)+CHR'«(16!))+CHR$(14'!); 

50 PRINT(?193,STRING$(22,191)+CHR$(190)+CHR'$(189)+STRING»(15,32)+ 

STRING$(Z,191)+CHR'i(H8);;PRINTei29,STRING$(19,19I)+CHR$(189)+CH 

R$(17i)+STRING$(18,32)+CHR1(160)+CHR$il80); 

5! PRINTI?65,STRING$(19,191)+CHRt(l'i9);;PRINTei,STRING»(19,191)+C 

HR$(117); 

53 X=50:Y='! 

Lines 55-1001 Conrtsnd routinej this roijtirie calls 8ll the 
other roijtines 3S nee'jed. It slso reduces arid checks 
the 3nount of oxygen (variable Q). 

55 GOSUPIOOO:' GET REF'ORTS 

60 GOSLKOOO;-- INPUT VALUES 

65 0=0-1 

70 IFO<0GOTO200 

75 GOSUE:3000 

78 GOSUB70Cfl 

80 GOSUE:10Cfl 

100 G0T055 

Line 200; Out of oxygen routine. 

200 PRINTi?S6S,"rOU HAVE RUN OUT OF OXYGEN,"; :PRINTe937, "YOU ARE 
DEAD' "";:FORA=lTC1900;NEXT:GOTa5 

Lines ISOO-lt'lP; Displays speed, slso siiows oxygen low 
nessage if rieedBQ. 

1000 PRINT(3831,"V, SPEED =";INT(VS»:100);" ";IPRl[NT@898,"H. SPEED 
=":iNT(HS-'rl(!0);" ";:PRINTe853,"GXYG£N =";0;:iF0;2CPRINTe917,"0X 
YGEK LO'-'""; 
1010 PETURN 

Lines 2£0C-2fl99: Get iriput routirie. Peeks keyboard fteftory 
to see which coMbmstion of arrow are heirig pressed; 
then, depending upon the peeked value, arcther sub- 
routine IS called to adjust the appropriate vari- 
ables. 

2000 IFPEEKcmOO )=3TH£WS=^iS+lELSEIFPED( ( H10 ) =16TH£NVS=VS-1 
2005 IFF'EEK(]1100)=32THENHS=HS-lELSEIFF'£EK(11tOO)=61THENHS=HS+l 
2010 IFPEEK(11^00)='!OGOSUe2iOO 
2015 IFPEEK(l'H00)=72GO5UP2105 
202^1 IFPEE!'(11')00)=13GOSUE:2110 
2025 IFPEEK(H100)=80GOSUB2115 

2099 RETURN 

Lines 2100-2115; Called by the above routirie to adjust the 
ship's rtovedent and speed. 

2100 hs=hs-i;vs=i's+i:r'Eturn 

2105 HS=HS+i;VS=VS+i: RETURN 
2110 HS=HS-i:VS=VS-i; RETURN 
2115 HS=HS+i;VS=yS-i; RETURN 

Lines 3000-3020; RESETs ship's position, Lipdates position, 
SETs neu position, then checks for crash. 

3000 reset(x,y):f:eset(x+2,Y);reset(x+i,y-i);x=x+hs;y=y-vs;ifx>12 






2THENX= 1 22ELSEIFX<3THENX=3 

3010 IFY::3THENY=3ELSEIFY>36THENY=36 

3015 IFF'OINT(X+1,Y-1)ORPOINT(X+1,Y)ORPOINT(X+2,Y)THEN6()00 

3020 set(x,y);set(x+2,y):set(x+i,y-i);return 

Lines 1090-1500; Checks ship's position an(3 speed for 
successful landing. 

1000 IFF'0INT(X,Y+1 )A^OPOINT(X+1 , Y+1 ) ANDP0INT(X+2, Y+1 )(¥«HS<3AN0H 
S>-3Af®yS>-5A^fflVS::5THEfCO3UE:5000; 'SUCCESSFUL LANDING 
1500 FfTURN 

Lines 50CO-501C; Successful laridirig; displays lariding Mes- 
sage, figures points awarded based Lipon renaining 
oxygen and difficulty level. 

5000 PRINT?848, "SUCCESS "I YOU'VE LANDED! I"; ;PRINTC'932,STRING$(2 

5,32); 

5005 PRINT(?8'31,"V. SPEED = ";;pRINTe89S,"H. SPEED = "; 

5010 FnRA=lT04:FfADP,n,R,S;SET(Xl+P,Yl-Q):SET(Xl+f,Yl-S);F0fi£!=lT 

050;hOTB, a: RESTORE 

5020 0-IMT ( ( ( On 1 5 ) xSL/2 ) ) ; R=0/ 1 : F0RA=1 TDl U : PRINT0932 , "POINTS 

a«r; ;nexta;print@932, "POINTS =";o;" "; 

030 PRIffr(?867,"PF£SS ENTER TO PLAY AGAIN"; 
5C1C INF'UTA:G0Tn5 
5500 GOTOS 

Lines 6000-6010; Crash routire. Displays crash graphics 
and Message, then returns to beginnirig of prograw. 

6000 cls;forx=itoi:fory=ito8;printa$;:next;printchr$(28);;fory=i 

T08 ; PRINTBi ; : NE>J I PRINTCHR* ( 28 ) ; ; F0RY=1 T08 : PRINTC$ ; I ftXTY :PRINTC 

HR«(23);;NEyTX 

60 ! PRINT(3''60 , "YGU CRASHED " " YOU ARE DEAD " " " ; ;F0RA=1T01 

90o:^£xt:goto5 

Line 70CO; Checks (usirig POINT furctioTi) to deterMine if 
crash has taken place. 

"000 IFP0IfJT(X,Y-l)ORPOINT(X+l,Y)ORPOINT(X+2,Y-l)ORPOINT(X-l,Y)O 
Ff -OINT (X+3 , Y } GOSUB60 OELSERETURN 

Lines 8999-9000; Data for t^jilding the done after success 
ful landing. 

8?9<> ' DOME DATA = 21 ELEHENTS 

9000 DATAO, 1,10, 1,1, 2, 9,2,2, 3, 8,3, 3,1, 7, 1,1, 5, 6, 5,5,5, 5,5 

Lines 11000-11020; Builds wide angle graphic display. 



11000 



i^AJOR APPROACH 



11010 PRINTe611,STRING»(10,191)+CHR$(119); 

11011 PRINT(?705,STRINGt(ll,191)+CHR$(188)+STRING$(50,191);iF'RINT 
l?769 , STRING* ( 62 , 1 91 ) ; ; PRINTL'653 , CHR$ ( 1 90 ) +3TRING* ( 29 , 1 91 ) +CHR$ ( 1 
8<?)+CHF't(lB0)+CHR$(181)+CHR$(188)+STRItC$(16,191); 

11012 PRINTI?577,STRING}(9,191)+GHR'$(188)+CW:*(118)+STRINGt(2,32) 
+Cm«(160)+CHRJ(190)+STRING$(25,191)+CHR'$a81)+CHR'$(176)+CHR*(11 
1)+STRING$(3,32)+CHR*(176)+CHR*(181HSTFaNG»(11,191); 

11013 PRINT(?513,STRING$(7,191)+CHRt(188)+CHR$(180)+STRING$(6,32) 
+CHF:*(176)+CW:*(190)+STRING$(17,191)+CHR$(181)+STRING$(2,176)+CH 
Rt(190)+CHR${191)+CHR*(180!+STRING$(9,32)+CHR${181)+STRING*(12,1 
91); 

11011 PRINT(?119,STRINGt(3,191)+CHR$(ieB)+CHR${176)+CHR$(111)+STR 

ING$(ll,32)+CHR'$(160)+CHF:$(181)+STRING$(11,191)+CHR$il88)+STRING 

$(3,32)+CHF:*(160)+CHR$(180)+STRING$(12,32)+CHR$(168)+CHR$(190)+S 

TRING$(9,191); 

11015 PRINTe385,CHR$(188)+STRING$(19,32)+CHR*(176)+CHR'»(190)+STR 



continued on page 85 
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PREPACK 




PREPACK is an S-80 article for 
disk users. 

by John R. Olsen Jr. 

There are currently several 
packing programs available from 
different sources. Basically, what 
each does is to shorten your 
program so that it will run faster 
and consume fewer bytes of 
memory. This is accomplished by 
removing unnecessary spaces, 
REM statements, and by 
combining your program lines into 
multiple line statements wherever 
the program logic permits. 

There are two disadvantages in 
the packing programs that 1 have 
used. Before packing your 
program, you must be sure that 
each print statement ends in a 
quotation mark. Frequently the 
programmer leaves it off (example: 
PRINT "BYE) because it is 
unnecessary and saves a byte. 
However, when these lines are 
packed into multiple line 
statements, the end quote becomes 
mandatory, if it is missing, the 
program will crash. 



Another disadvantage of the 
packing programs 1 have used is 
that they do not remove any 
unnecessary semicolons. In many 
places, the semicolon can be 
removed without harming the 
program, while in others, it's 
required (see figure 1). If the 
unneeded ones could be removed, 
it would result in additional 
memory savings. 

1 would hate to count the time 
spent editing lines and adding 
quotes to them before packing. 
And I gave up trying to edit out all 
the unnecessary semicolons. It just 
wasn't worth the time. But finally, 
my soul revolted! 1 wasn't going to 
put up with this! Let the computer 
do the work for me (after all, it is 
supposed to be my slave)! So I 
wrote a program which will take 
care of these tasks. 

I call the utility program 
PREPACK because it is used 
before packing. It will remove all 
unnecessary semicolons, and add 
any required quotes to your 
program which can then be packed 
without worry. The result will be a 



completely packed program that is 
more efficient. 

The PREPACK utility program 
uses ASCII disk files. The program 
to be PREPACKed must be saved 
on disk in ASCII format. In that 
way, the PREPACK utility can 
read one program line at a time 
(using the LINEINPUT No. 
statement), modify it, and write it 
back on disk. 

The one BIG disadvantage of 
this program is that it is in BASIC 
and therefore is slow! It can take 
10 minutes to PREPACK a fairly 
long program. And comparing this 
with less than two minutes to pack 
the program (using a machine 
language pack), it seems like a 
snail's pace. But it is certainly 
faster than I could do by hand - 
and without errors! So give it a try 
and make your programs pack 
properly the first time, with 
additional saving of memory! 



10 CLEARIOOO 


210 PRINT" 


20 CLS 


THE MODIFIED F'ROGRAM WILL E£ SAVED EWCK ON DlSf! IN ASCII. 


30 A*=CHR<(31) 


11 


10 FraNTI?21,"PREF'ACK" 


220 INF'UT"HHAT WILL E£ THE NEW FILESPEC";C$ 


fO FfINT 


230 IFC»=E<PRINT"-> FILESF'ECS MUST BE DIFFERENT. ":GOT0220 


60 F1<INT"US£ THIS UTILITY EffORE PACKING YOUR PROGRAM. IT ADOS 


210 0F'EN"I",1,B$ 


MISSING" 


250 OFtN"0",2,C$ 


70 PRINT"QUOTES (LEFT OF AT THE END OF FltlNT STATEMENTS). IT A 


260 CLS 


LSO" 


270 F1<INT"M0DIFYING" 


80 F'RINT"ELIMINATES W^ttCESSARY SEMICOLONS AND SPACES." 


280 IFEOF(l)T)CNCLOS£:PRINT:Fi;;INT!PRINT"Tt£ MODIFIED F'ROGRAM IS 


90 FIONT 


NOW BEING LOADED. YOU SHOULD THEN SAVE":PRINT"IT BACK ON DISK ( 


lOfl PRINT"1. LOAD YOUR PROGRAM." 


SO IT WILL LOAD FASTER THAN THE ASCII VERSION). ":PRINT"T^£N RUN 


118 PRINT"2. SAVE YOUR PROGRAM E:ACK ON DISK IN ASCII ("A*"FILES 


OR PACK THE F'R'OGRAM."!F'RINT:LOADCt 


PEC"A<",A)." 


290 PRINT"! '■; 


120 PRINT"3. THE DISK MUST HAVE ENOUGH SPACE FREE FCK A 2ND ASC 


300 LINEINF'UT*1,D$ 


II COPY." 


310 E=l 


130 PRINT"1. RUN THIS PROGRAM." 

HO PRINT 

150 PRINT"THIS FWGRAM CAN ALSO BE USED AFTER PADaNG, AS LONG A 

S THE" 


320 P=2 

330 M»=MID$(D$,P,1) 

310 IFM$=A$TtCNE=-E:GOT0360 

350 IFE=1AM)M«=" "THEND$=LEFT$(D»,P-1)+RIGHT*(D$,LEN(D«)-P)!F'=P- 


160 PRINT"LENGTH OF EACH PROGRAM LINE DOESN'T EXCEED 210 BYTES." 

170 IM'UT" 

Afit YOU R-EADY FOR' STEP 1";D$ 

180 IFLEFr$(D$,l)0"Y"THEf£ND 


1 

360 IFF'<:LEN(D$)THef'=P+i:GOTC330 

370 FE=lTHEN10fl 

330 IFRIGHT$(D$,1)=" "TH£ND*=L£FT»(D$,L£N(D$)-1)*.G0T038I) 


190 CLS 




200 INFm"^#lAT IS TtC FILESFtC";e$ 






continued on page 87 
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Plu9 into special hciNluicire 
sciyings from... |^v 



HPIRDSI 




^^ TRS-80 owners 

Explore new worlds 



▲ 



I 



The MICROMINT INC. introduces 
its latest data communications product, 
the "CHATTERBOX." The CHATTERBOX 
is a unique packaging combination of 
the presently available COMM-80 I/O 
interface for the TRS-80* and an ■ 
acoustic modem. This one box is I 
all that is required to turn even a B 
barebones 4K TRS-80 into a full 
timesharing terminal. 

The CHATTERBOX . 

includes a built-in programmable ,|^ 
50-19200 baud serial port, a { 

Centronics compatible parallel ;. 
printer port, a 300 baud ' 

acoustic originate modem, and 
a spare TRS-BUS expansion 
connector It comes complete 
with power supply, ribbon 
cable and connector, user's 
manual, and smart terminal 
software for immediate 
operation. When the modem 
is in use, the complete data 
conversation is automatically 
routed to the serial output 
port and parallel port 
where it can be >*-^ 

logged on a printer , ^. 




The CHATTERBOX is the only 

peripheral needed to allow a TRS-80 to 

communicate with timesharing systems 

, such as Micronet and the SOURCE, 

In addition, CHATTERBOX can be 

used simply to provide an address 

selectable serial and parallel port. 

It is completely hardware and 

software compatible with existing 

TRS-80 products and connects 

either to the keyboard connector 

or screen printer port on the RS 

*. Expansion interface. It does 

j not require the RS Expansion 

S interface for operation. 

CHATTERBOX. 
$259.95 



• Full 8-bit parallel port. 

• RS-232-C serial port 
__} (up to 19,200 baud). 

• Acoustic modem. 

• TRS-BUS connector for 

future expansion. 

■ Connects to Keyboard or E.I. 

• Includes terminal software. 

• Users manual. 

• Power supply 



TO ORDER TOLL FREE: 
1-800-258-1790 

(in NH cal 673-5144) 
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Get your UPPER 
and lowercase the 
easy way! 







Why Lowercase? 



rog c«>'t tfnrwial* Mt N» ICCUMV teletM it on Ikir 
TKS-W irrtil Sou'ut iMn it. One* toi w *alc<n Ita/U tww 
.wt to k b«* to [ffOtm onlV ihln. In (ict. Mn/ll ian*r 
in> Mi mmitt* alttout It fer fo la*. 

Th» cM-Kt«- ««»-.1«r in ttar T«*-M rUEIMV ooituw t»» 
(ollo>inSI »««t cttncfni n^tru iNctil •IMols> mc to* 

UPfOI W< lOMTCMt l»tt» Itt*. llOCt S-^MM n 1M<HC«»*. 



NOW IT'S 
SWITCHABLE!! 

Due to pressure from our 
customers, we now offer 
"THE SWITCHABLE 
PATCH". It does 
everything the original 
PATCH does, PLUS 
switches in and out! This 
eliminates conflict with 
old software. 

Yours for only 



$94.97 



THE PATCH! 



Unfortunately, converting your TRS-80* requires 
installing the video memory chip plus wiring changes. 
There is only one modification on the market which 
eliminates most of the wiring. To get the dualcase mod 
installed you have three choices: 1 ) Send your computer to 
a company or individual who will do the wiring, 2) do it 
yourself, or 3) "THE PATCH". 

To make choices 1 and 2 operate requires using software 
overhead in the form of a "driver". This takes 30 bytes, 
unless you want a "normal" shiftto UPPERCASE keyboard. 
That takes upwards of 60 more bytes. Software oriented 
mods have three more disadvantages; 1) They reside in 
program memory, eating program space which you could 
be using, 2) other machine language programs are 
unusable if they are loaded against the top of memory, or3) 
the "driver" software MUST be loaded every time you 
power-up, or the "MEMORY SIZE?" appears due to 
program bomb. Choice numberthree suffers from NONE of 
the software overhead problems. We call it "THE PATCH" 
and it's new for the 80's! 

"THE PATCH", a small electronic module which plugs 
into the unused ROM socket on Level II machines, makes 
necessary software changes to ROM supporting lowercase, 
an optional block cursor, and extra keyboard debounce. 
Electronically means NO software overhead. Your 
computer displays lowercase instantly upon power-up, and 
the keyboard operates in "normal" typewriter fashion. 

"THE PATCH" is completely compatible with your TRS- 
80* since it is the first, and only, TRS-80* lowercase system 
designed that flawlessly mates with the computer as a unit, 
not just a special program package. 

"THE PATCH" is also the only modification of any kind 
which can have extra options and updates factory installed 
for 5 to 1 dollars per option, as they are available. Same day 
turnaround. 

THE PATCH is a trademark of CECDAT, Inc. 
*TRS-80 is a trademark of Tandy, Radio Shack Corp. 

Call 208-883-0611 

Order yours today to avoid extra delay. Send $69.97 plus 
$2.50 for shipping and handling to: CECDAT "THE 
PATCH", Box 8963, Moscow, ID 83843. 



(Print or Typtl 



SlTMt 

Citr__ 



Zip 



tAnrmlVv I 



Expiration Dth 
Signtkira 



_ei "THE PATCH" $69.97 

"THE SWITCHABLE PATCH" $94. 

Ship & Handling >2.50 

Black Cursor 
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(^tLast! 
— Orchestra-80 

A TRS-80™ MUSIC SYNTHESIS SYSTEM 

WRITTEN BY JON BOKELMAN 



Turns Any 16K Level II TRS-80 Into A High Quality Musical Instrument 

l$e Software-' 

A five part machine language program consisting of: 

2 Digital synthesizer— produces up to four simultaneous voices in a six-octave range. For 
example, you could have a trumpet, oboe, clarinet, and organ playing in four-part 
harmony or alter any of the voices to imitate other instruments. 

2 Music ianguage compiler —a simple and easy to use language allows you to enter your 
favorite written music in any key or time signature. Plays all note values from whole notes 
to sixty-fourth notes which may be single, double, or triple-dotted and/or played as triplets. 
Supports single and double accidentals, stacatto, pizicatto, two forms of articulation, 
repeats, second endings (with or without retard), and modulation. 

3 Full screen editor— a full function text editor with blinking cursor is provided for easy 
entering and modifying of music programs. Functions include insert/delete characters, 
insert/delete line and global character string search, and automatic error detection/display. 

4Filemanager— provides the orderly storing and retrieval of named program files on tape 
or disk. You can even sequence several songs for automatic loading and playing. 
5 Initialization— this set-up routine allows you to alter the voices, select the standard 
four-voice synthesizer or a special high resolution, three-voice version and choose the 
standard (1.77 MHz) or the enhanced (2.66 MHz) clock rate. 

^e Hardware-' 

A single 1 V2" by 2" PC board plugs into the expansion connector on the TRS-80 keyboard or the 
screen printer connector on the expansion interface. This board contains the electronics 
required to convert the computer output into a high fidelity audio signal. Just plug in the 
board and connect to the aux/tape/tuner input of any audio amplifier No external power 
supply is required. 



Includes: 

• Tape and disk versions on cassette 

• Completely assembled and tested 
PC board 

• Detailed and complete instruction 
manual 

• Sample music programs 



Orchestra-80 
$79,95 

PLUS $2.50 POSTAGE AND HANDLING 



\0 



TO ORDER TOLL FREE: 
1-800-258-1790 

(in NH cal 673-5144) ■ 
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SPECIAL DEMO LINE! HEAR ORCHESTRA-80 ON (408)727-8194 



"TRS-80 IS A TRADEMARK OF TANDY CORPORATION 
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The Chatterbox 

A TRS-80 Interfacing Alternative 



The CHATTERBOX is a unique packaging combination of the presently 
available COMM-80 I/O Interface for the TRS-80" and an acoustic modem. 
This one box is all that is required to turn even a barebones 4K TRS-80' into a 
full time-sharing terminal. 
The CHATTERBOX includes built-m programmable 50-19200 baud serial port, a Centronics 
compatible parallel printer port, a 300 baud acoustic originate modem, and a spare TRS-BUS 
expansion connector. It comes complete with power supply, ribbon cable and connector, user's manual, and 
terminal software for immediate operation. When the modem is m use, the complete data conversion is 
automatically routed to the serial output port where it can be logged on a printer. 
The CHATTERBOX is the only peripheral needed to allow a TRS-80" to communicate with time-sharing systems such as 
MICRONET and the SOURCE 

It is completely hardware and software compatible with existing TRS-80" products and connects either to the keyboard 
connector or screen printer port on the RS Expansion Interface. Features; Full 8-bit parallel port; RS-232-C serial port (up to 
19,200 baud); Acoustic modem; TRS-BUS connector for future expansion; Connects to Keyboard or El.; Includes terminal 
software; Users manual; Power supply. $259.95 



PRINTERS 





LIST 


OUR 




PRICE 


PRICE 


Centronics 730 


$795.00 


$749.00 


Centronics 730-3 


$895.00 


795.00 


Centronics 737 


$995.00 


$869.00 


Centronics 7^9 


$1395 00 


$1095.00 


Centronics 779 w/lower case 


$1595.00 


$1195.00 


NEC 5510 SpinWriter 


$3195.00 


$2595.00 


NEC 5520 SpinWriter 


$3395.00 


$2895.00 


NEC 5530 SpinWriter 


$3195.00 


$2495.00 


NEC Tractor-Feed Option 


$249.00 


$225.00 


LRC 7000* (64-col.) 


$405.00 


$299.00 


LRC 7000«(40-col.) 


$389.00 


$289.00 


Okidata Microline-80 


$800 00 


$639.00 


Tractor-Feed Option 


$140.00 


$129.00 


RS-232-C Option 


$299,00 


$279.00 



LRC to TRS-80 

LRC to PET, IEEE 

LRC to RS232C, male or female 

730 or 737 to TRS-80 

NEC or 779 to TRS-80 

RS-232-C to RS-232-C, male to male 



$20.00 
$59.00 
$65.00 
$29.00 
$35.00 
$24.95 



GENERAL INTEREST 



SPECIAL 






LIST 


OUR 




PRICE 


PRICE 


BSR System X-10 Home Controller 


$124.95 


$109.95 


BUSY BOX, TRS-80 


$114.95 


$99.95 


BUSY BOX, S-100 


$119.95 


$114.95 


AC-SFK-31 Line Filter 


$24.95 


$19.95 


ISO-2 Line Filter & Isolator 


$56 95 


$49.95 


IS0-2/CBS Line Filter-Isolator 


$70.95 


$59.95 


IS0-7/CB Super Filter-Isolator 


$146.95 


$99.95 


Mini-Flex Diskette File 


$24.95 


$19.95 


CASIO C-80 Calculator Watch 


$49.95 


$44.95 


BONE FONE 


$69.95 


$56.95 


LOGOS-9 Printing Calculator 


$99 95 


$79.95 


CASIO 






C-80 CALCULATOR 


m 




WATCH $44.95 


r 


.' >'''-^^ 



BONE 
FONE 
$56.95 



(plus 52 50 postage and handling) 



{plus $2 50 postage and handling) 



OLIVETTI 

LOGOS-9 

PRINTING 

CALCULATOR 

$79.95 

(plus $2 50 postage and handling) 





TO ORDER TOLL-FREE 
1-800-258-1790 

(In NH call 673-5144) 
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POCKET COMPUTER $269 



MODEL I $699 



Model-I, Level-ll, 4K 
Model-I, 16K no Keypad 
Model-I, 16K w/Keypad 
Model-ll. 64K RAM 
Model-Ill, 16K RAM 
Model-Ill, 32K Dual Disk 
Pocket Computer w/ Interface 
TRS-80 Color Computer 
TRS-80 Color Computer Expanded 
COMM-80 Interlace 
CHAHER BOX Interface 
DISK-BO Interface 
Expansion Interface, no RAM 
Expansion Interface, 16K RAM 
Expansion Interface, 32K RAM 
RS-232-C Board 



LIST 
PRICE 

$649,00 
$768.00 
$849.00 

$3899 00 
$999 00 

$249500 
$298.95 
$399 00 
$599.00 
$179.95 

$349.95 
$299.00 
$418.00 
$537.00 
$99,00 



OUR 
PRICE 

$619.00 
$669.00 
$729.00 

$3799.00 
$929.00 

$2299.00 
$269.00 
$359.00 
$519.00 
$159.95 
$259.95 
$329.95 
$279.00 
$339.00 
$399,00 
$89,00 




with interface 



TRS-232 Printer Interface 

16K Memory Kit, TRS-Keypad 

16K Memory Kit, TRS-Exp, Int, 

Upper/lower Mod Kit 

Video Reverse Kit 

CPU Speed-up Kit 

Data Dubber 

Percom Electric Crayon, w/cable 

TRS-80 Dust Cover (3pc set) 

TRS-80 Computer Case 

TRS-80 Monitor Case 



LIST 
PRICE 

$119,00 

$119,00 

$59.00 



$9,95 

$109,00 

$84 00 



OUR 
PRICE 

$59,95 
$59.00 
$59.00 
$24.95 
$23.95 
$24.95 
$49.95 
$279.95 
$7 95 
$99.95 
$84.00 




COLOR COMPUTER $359 



MODEL III $929 



Percom, TFO-100, 40-track 
Percom, Dual TFD-100 Drives 
Percom, TFD-40, 40-track 
Percom, TFD-200, 77-track 
Hardside, 40-track Disk Drive 
Percom Data Separator 
Percom Extender Card 
2-Drive Cable 
4-Drive Cable 



LIST 
PRICE 

$429.95 
$849,00 
$399,35 
$675,00 
$399.00 

$15.95 
$29.95 
$39.95 



OUR 
PRICE 

$399.00 

$799.00 

$379.00 

$629.00 

$359,00 

$29,95 

$15.00 

$29.00 

$39.00 



TERMS: 



TERI^S: Prices and specifications are subject to cliange. HARDSIDE accepts VISA 8. fVIASTERCARD. 
Certified checks and Money Orders; Personal chiecks accepted (takes 3 weeks to clear). HARDSIDE pays all 
shipping charges (within the 48 states) on all PREPAID orders OVER $100.00. On all orders over $100 a 
$2.50 handling charge must be added. COD orders accepted (orders over $250 require 25% deposit) there is 
a $5.00 handling charge. UPS, Blue Label, and Air Freight available at extra cost. 



TO ORDER TOLL-FREE: 

1-800-258-1790 

In NH call 673-5144) 
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HARD COPY GRAPHICS FOR YOUR APPLE 

USING THE OKIDATA MICROUNE 80 PRINTER 

WITH THE OKI-IMAGE/OKI-ADAPTER 




Without a doubt, the OKIDATA MICROUNE 80 PRINTER is an incredible printer bargain. Not only is it well 
built and reliable, but it is also priced to beat the competition. 

Until now, there has not been an easy way to interface this printer to the APPLE II. The dealer had to make a 
special cable which disabled graphics in order to get the printer to work at all. 

Now you can get full use from the MICROLINE 80 including GRAPHICS. All you need is the OKI-IMAGE/OKI- 
ADAPTER. This package includes a cable which makes both TEXT and GRAPHICS available with the APPLE, 
and a very powerful HI-RES SCREEN DUMP. The screen dump will print either page of HI-RES, or any portion 
of either page of HI-RES in any of the six graphic print sizes, and in NORMAL or INVERSE print. 

Cables are available to fit any of the popular parallel printer cards. 
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Sample Scienti-Fic Function Graph 




DOUBLE BESSEL FUNCTION 




Retail price is only $89.95, including GRAPHICS SOFTWARE. 



TO ORDER TOLL-FREE: 

1-800-258-1790 




(In NH call 673-5144) 




NO HIDDEN CHARGES 



OUR PRICE 



ATARI 400 Computer System, 8K $629.95 $499.00 

ATARI 800 Computer System, 16K $1079.95 $849.00 

ATARI 410 Program Recorder $89.95 $79.00 

ATARI 810 Disk Drive $699.95 $599.00 

ATARI 815 Dual Density Disks $1499.95 $1299.00 

ATARI 820 Printer (40 col.) $599.95 $499.00 

ATARI 822 Ttiermal Printer $449.95 $389.00 

ATARI 825 80/132 col. Printer $999.95 $869.00 

ATARI 830 Acoustic Modem $199.95 $169.00 

ATARI 850 Interface Module $219.95 $189.00 



MACROTRONICS Parallel 

Printer Int. 
MICROMINT Atari 

Chatterbox Modem 
ATARI Light Pen 
16K RAM Memory Module 
ATARI Joystick Controllers 
ATARI Paddle Controllers 
ATARI 800 Dust Cover 
ATARI 400 Dust Cover 



$69.95 $64.95 



$219.95 
$74.95 

$199.95 
$19.95 
$19.95 



$199.95 

$64.95 

$169.00 

$18.95 

$18.95 

$7.95 

$7.95 




IHPM^DSI 

We buy and sell 
used computers 
and peripherals 
fortheTRS-80; 



apple; atari; 

and pet: 



jj- 



Z'ig^E^ 



(603)673-5144 




■TRS-80, Apple, Atari, and Pet are trademarks of Tandy, Apple Computer, Warner Communications and Commodore, respectively. 
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Bone Fone 



The BONE FONE is a 
miniaturized AM/FM stereo 
system that drapes over your 
shoulders like a scarf. The BONE 
FONE gives new meaning to the 
word portable. You don't carry a 
BONE FONE around with you. 
You wear it. Ski with it, cycle, jog, 
or just take a leisurely stroll 
through the woods with it. It's the 
hands-free stereo that brings 
beautiful music to every indoor or 
outdoor activity without 
disturbing those around you and 
without covering your ears. 

The BONE FONE stereo is 
covered with a sleeve made of 
Lycra Spandex - the same 
material used to make expensive 
swim suits, so it's easily 



washable. You simply remove the 
sleeve, dip it m soapy water, rinse 
and let dry. The entire system is 
also protected against damage 
from moisture and sweat, making 
it ideal for jogging or bicycling. 

The BONE FONE has been 
selling nation-wide for $70. 
HARDSIDE's special price isONLY 
$56.95 plus $2.50 postage and 
handling. 

9902 $56.95 





TO ORDER 

TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 



IHEWiraiTHiiriEPliWES 





In fact It even replaces the age-old myth that a timepiece loaded with talent has to be 
expensive. 

The Casio C-80 has a list price of $50. It has been advertised nationally for $75. 
HARDSIDE's special price Is only $44.95 plus $2.50 postage and handling. 
A CALCULATOR MADE FOR REAL FINGERS 

Here's the first calculator chronograph that can be operated easily with your fingertips. No 
need to use a stylus or pen; the keys are far enough apart that even the broadest fingers can 
worl< them. 

Add, subtract, multiply, divide - even perform chain calculations up to eight places, plus 
decimal. Numbers appear in crisp, liquid crystal digits. 
STOP WATCH, 2 TIME ZONES ■ AND MORE 
^^^ You get 1/100 of a second accuracy, lap times, and up to 24 hours of track-style timekeeping. 
< Qfi 3 ~,^^B^ ^°" *'^° 0^' '*° "'"^ zones; the second zone Is set for 24-hour time. Hours, minutes and 

-' -J c f^BMl seconds are displayed with reliable 15-second-a-month quartz precision. 

Press another button and the month and date appear. And press another for built-in night 
light. 

, ^._,ri— ^-,- FEATHER-LIGHT, YET RUGGED 

j^ Sg^^Jj^^ I The 1-3/4 oz. case and band are constructed of high-impact black plastic. And so 

|^2^rf5^i^/ff lightweight and comfortable you may not realize that you are wearing It. This Casio 

^^ '^ chronograph Is rugged, resists scratching, and is water-resistant. 

99-01 $44.95 

TOLL FREE ORDERS: jK^^S\ 

1-S00-25S-1790 l^^S/ 

(in NH call 673-5144) IJ^rf^ri|6l| 
6 South Street, Milford, NH 03055 
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DATAPOKE 




The following; article will he of 
interest to Ix'vel If users who do 
not have a disk. 

by William K. Mason 

Here is a program, written in 
BASIC, that converts SYSTEM 
tapes into BASIC tapes. It solves 
what 1 think is a common 
dilemma. Suppose you have a 
BASIC program that calls a 
machine language subroutine via 
the USR command. The 
subroutine is on a SYSTEM tape. 
Thus, to use the program, you 
must set memory size, load the 
SYSTEM tape, then load the 
BASIC tape. If your SYSTEM 
tapes are like mine, they don't 
always load the first time. This 
procedure is a nuisance and may 
lead to profanity, insanity, or 
divorce. 

You would like to put the 
machine language subroutine in 
DATA statements as part of the 
main BASIC program. Then the 
BASIC program could POKE it into 
place. But putting the subroutine in 
DATA statements is not so easy, at 
least if it's a long one. (One of 
mine takes 1500 memory 
locations.) You must: 

1. Get the machine language 
instructions in decimal form. I do 
this by loading the SYSTEM tape 
and then using the PEEK 
instruction. I don't have a printer 
so the decimals must be copied by 
hand. 

2. Type the numbers from step 
I onto DATA statements. Even a 
printe,- won't do this for you. 

3. Preface the DATA statements 
by BASIC commands, which set 
the proper memory size, and then 

POKE the data into protected 
memory. 

Fortunately, this tedious 
procedure can be avoided. The 
DATAPOKE program listed in 
this article does steps 1-3 for you. 
You load your SYSTEM tape, and 
then CLOAD and RUN 
DATAPOKE. When the run is 
finished, the DATA statements, 
prefaced by the proper POKE 
instructions, are in memory. You 
can CSAVE them on tape or add 
more instructions. 

If you use DATAPOKE on a 
program that must be linked into 
BASIC, for example. Radio 
Shack's KBFIX, you might add an 



instruction that prints, "To link 
into BASIC, enter SYSTEM, then 
/X", where X is the program's 
starting address. (This suggestion is 
printed on the screen by 
DATAPOKE.) 

The DATAPOKE program itself 
contains no DATA statements; 
they are created by the subroutine 
in lines 440-460. Also, notice that 
line 10 looks rather strange. (Be 
sure you type it in exactly as 
shown, without extra blanks.) Line 
10 is modified as DATAPOKE 
runs. 

A simple illustration of a 
program that modifies one of its 
own lines is: 

10 GOTO20:PRlM "HI MA" 
20 PRlN"r"Hl PA" 
30 FOR K = lO 3: POKE 
17133 + K.32;\FXr 

If you are careful to type in line 
10 exactly as shown, then the first 
time you run it the program will 
print "HI PA." The second time 
you run it, it will print "HI MA HI 
PA." This happens because 
GOTO20; is stored in locations 
17133-17136, and line 30 overwrites 
these locations with blanks (32 is 
ASCII code for blank). For a fuller 
exposition of how BASIC 
programs are stored in memory, 
see the fine article by Dick Straw 
in the SO-US Journal, Sept. -Oct. 
1979 issue. 

DATAPOKE is written for 16K 
Level II. If you have more 
memory, you must make a few 
changes because POKE requires 
that locations higher than 32767 be 
represented as negative numbers. 
Delete DEFINTA-Z from lines 40 
and 80. Change Unes 130-145. 
Replace line 10 by: 

10 GOTO20:*POKEI6561. 

♦** :POKE16562,***:CLEAR50: 

FORK = ♦****jo*****: 

READN 

12 IFK < = 32767THEN 

POKEK,N ELSEPOKE32767-K,N 

14 NEXT 

I haven't tested these changes 
because I only have 16K. 

Finally, I'll describe the 
procedure for using DATAPOKE 
in more detail. 

1. Set memory size as required 
by the SYSTEM program. 

2. Enter 'SYSTEM' and the 
filename in the usual way. 

3. When the tape has finished 



loading and the second *? appears, 
enter /6681 (or, if you're like me 
and can't remember a number like 
6681, enter / 1 and set memory size 
again). Do NOT enter /(starting 
address) or / alone. You don't 
want the SYSTEM program to run 
because it might modify itself. 

4. CLOAD and RUN 
DATAPOKE. 

5. Answer the two questions 
about the memory locations you 
want saved. 

6. When the run is finished, 
prepare cassette and CSAVE your 
converted SYSTEM program. 

A$ Keyboard input. Appears in 
lines 130, 140. 

C Count of DATA statements 
filled up plus one. Appears in lines 
150, 400, 410. 

DN Line number of DATA 
statement currently being filled. 
Appears in lines 150, 250, 290, 
300, 400, 450. 

EN Memory location for start of 
DATA statement currently being 
filled. Appears in lines 40, 50, 60, 
80, 190, 210, 320, 330, 340, 350, 
400, 440, 450, 460. 

I General loop index. Appears in 
lines 180, 190, 200, 380, 520. 

K Index number of memory 
location to be saved. Appears in 
lines 160, 170, 220, 400. 

L Final memory location to be 
saved. Appears in lines 140, 145, 
240, 500. 

L! (single precision) used to test if 
final memory location too large. 
Appears in line 140. 

LY Least significant byte of 
integer Y. Appears in lines 50, 60, 
340, 360, 430. 440, 450, 470. 

M Smallest memory location to be 
saved. Appears in lines 110, 120, 
130, 145, 170, 240, 250, 470, 490. 
MY Most significant byte of 
integer Y. Appears in lines 50, 60, 
340, 360, 430, 440, 450, 480. 
N Two uses: (1) The number of 
memory locations to be saved. 
Appears in lines 150, 160, 400. (2) 
Length of string to be Poked into 

continued on page 88 
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DOUBLE CANNON 




by David Bolkhe 

DOUBLE CANNON is an Atari 
program requiring 8K. 

DOUBLE CANNON is a shoot- 
em-up (or down) game for one or 
two players. A sharp eye is needed 
to judge when the randomly 
moving target crosses the path of 
your laser cannon. But you can't 
waste time waiting for the perfect 
shot, as the game is also timed. 
Yet, it is important that you not 
waste any shots, either, since your 
cannon has just enough energy for 
twenty shots. 

To fire, the player on the left 
need only press the Z key, while 
the player on the right should press 
the M key. A green box will 
indicate the time remaining in the 
game and a blue box for each 
cannon will show the number of 
shots you have used. Hits are 
recorded by red blocks above each 
cannon's blue box. For two 
players, the winner is the shooter 
with the most hits. When there is 
just one player, the object is to get 
as many hits as possible using both 
cannons. 

Included with the line listing are 
definitions of the major variables. 
Also, a line-by-line description of 
the main game loop is presented. 
Perhaps of interest to programmers 
is the movement of the target. The 
target location for the PLOT 
commands is X,Y. This is adjusted 
each move by the variable XI and 
Yl (line numbers 302, 307). For 
example; if X=30, Y=10, Xl = l and 
Yl = l, then after line number 307 
has been executed, X=3I and Y=l I 
— so the target is moving down 
and to the right. 

When the target reaches the right 
edge of the screen, XI will be 
changed to -XI (Xl=-1), since in 
line 302 the test for X greater than 
57 is true. Now the X value will 
decrease by one as Y increases — 
so the target will move down and 
to the left. A similar change in 
direction for the target occurs 
whenever X or Y reaches the edge 
of the target area, as defined in line 
numbers 302 and 305. 



5 REII DAUE BOH.K.E COQiJH, lA 

b REM DOUBLE CAtMJ.i'lS 

Lines 13-28 Colors used (ILia need to 

be ad-justed for •^yx- TUJ' 



10 GRAPHICS 5 SETCOLOR 0,6,7 

20 SETCOLOR 2,4,7 SETCCIOR 4,15,3 

Lines lee-lK Plots for the two 
canno.ns 

190 COLOR 1 PLOT 8,31 DRAIJTO 0,39 
182 PLOT 3,32 CiRAl'lTO 2,39 
104 PLOT 71,31 DRftiJTO 79,39 
106 PLOT 70,32 DRAUTO 77,39 

Liries 110-114^ V.:i is t)-* locition of 
the tirset 

110 >:i=l Yl=l 

112 .'>;=INT(:RtCCl;KS)+2'5 

114 Y=IHT';.RH[Kl>*15)+3 

Lines 119-126 Messages 

119 PRIHT 

120 PRINT " LEFT press Z , and RIGHT 
M " 

122 PRIHT "Each side ^,as 26 shots, sl-owr, 

in BLLE" 
124 PRIHT "HITS are displayed in RED. " 

126 PRINT "Tune left is indicated in GRE 
EN ", 

Li res 150-164 Plots blue boxes 

150 PLOT 5,39 ORAWTO 31,39 
152 PLOT 9,37 DRAWTO 31,37 
154 PLOT 9,38 PLOT 31,38 
160 PLOT 69,39 DR»JTO 47,39 
162 PLOT 69,37 DR'AWTO 47,37 
164 PLOT 69, 38:PL0T 47,38 

Line 170^ LH, RH a.-e PLOT locations 
for- left hits, rl9^,t hits" LS.RS 
irdicate the niaiber of sh^ts taken ba 
each side, T is t^.e time reniainire 

170 LH=9RH=69 LS=10 RS=68 T=32 

Lines 172-176 Plots sreeri box 

172 COLOR 2 aOT 31,31 CRAWTO 47.31 
174 PLOT 31,33 X'RAtJTO 47,33 
176 PLOT 31.32 PLOT 47,32 

Lines 200-350 .Mam Gan* Loop 

Line 200 Plot taraet 

200 COLOR 3 liEUE 906 

Lines 2'02-245 C.^,eck for shot and hit 
uith left carron 

Line 202 If 'Z' is pressed, tl-,en 
PEEK 764) aill eiual 23 

202 P=PEEK( 764 ;■ POKE 764,0 

Line 220 If '2' is riot pressed, 
branch to 250 

220 IF P023 Tf£H 250 

Line 221' Set backsrour., color, ch«ck 
if left has ana shjsts rejiainins 

221 SETCOLOR 4,7,8 IF LS>3e THEN 290 
L 1 ne 222 Draw 1 aser beam 

222 COLOR 2 .'^tOT 1 , 39 ■ DRAi'JTO 40,0 

Line 223- Make sourjd for laser 

223 GOSUB 850 

Line 224 Plot sk,.Dt ^jsed for left 

224 PLOT LS,38XS=LS+1 



Line 225 a-,eck for hit^ If hit then 
Plot hit, increnient coint, GOSUE :3e0 

225 H=40-X-Y IF <H>e) f*C (H;4;' T>tH COL 
OR 3: PLOT LH, 35 XH=LH+2 GOSUE 360 

Line 245 ^ Blank laset* beam 

245 COLOR 4F1.0T 1,39^DRAWT0 40,0 GOTO 2 

90 
Lines 250-288- S?3ie as 202-245, except 
with respect to tk.e cannon on Vr& 
rish.t 

250 IF P037 TftS 290 

251 SETCOLOR 4,7,8 IF RS<4S THEN 2SC 

252 COLOR 2 PLOT 7S,39 DFttiJTO Z'i.ii 

253 GOSUE' 850 

254 PLOT RS,.38 RS=RS-1 

255 H=41-v:+Y IF <H,~>8> «C ■;H(4;' Tt€N Ca 
OR 3^ PLOT RH,35RH=RH-2 GOSUB 860 

288 COLOR 4 PLOT 78,39 DRftiJTO 39,0 
Line 2'90: Ch«ck if either carinon Vab 
shots remainins 

290 IF (LS>.7.0> AND (RS<48> THEN 880 

Line 296 CJ-*ck for erid of tii»e 

296 IF T>45 THEN 860 
Lines 302, 305 : Ch*rk if tarset is 
boundary adjust X1,Y1 if not- incre- 
•lent time on Yl 

300 COLOR 4 GOSUB 900 

301 SETCOLiJR 4,15,8 

382 IF ;>057> OR (K22) TfEN X1=-X1 FOR 
1=1 TO 15^SiUND 0,X+Y,10,7 NEXT I 
305 IF \-i<V) OR ("Y>2e) T«N Y1=-Y1 T=T+e 
.5 FOR 1=1 TO 15 SOUND e.K+Y, 10,7 NEXT I 
Line 307 Adjust X,Y to new tarset lo- 
cation 
307 X=X+X1 Y=Y+Y1 

Line 309- Plot tinie bo;; 

309 CXOR 3 .ciOT T,32' 

Line 320: 0*ck for end of tii«e 
(redundant as 296) 

320 IF T>45 THEN 380 

Line 350: Coritinue ;»ain same IiDOP 

ZS SOUND 0,0,0,0 
350 GOTO 200 

Lines 800-820 End of same INFIIT 
routine 

599 GOTO 599 

800 PRINT PRINT "PRESS R€TURN fof" nex 

t saiiie " ; 

810 P=PEEKi764> !F P=12 THEN PUN 

815 SOUND 0.R,'O( l):iCi5iJ.lCi,7 

820 GOTO 810 

Lines 850-852" Laser sound 
850 FOR !=X TO X+10 .SOilD 0,1,10.11 
852' NE.XT I 9XHD a, 0,0,0 RETURN 

Lines 860-878: &jund for hit; blarik' 
tarset; set new tarset 

860 SETOXuR 43,9 .'^rp ._\-\v. Ti'i 19f' 

864 SOUND S..J, 12,9 iE;>rr J 

868 COLOP 4 liJSUB 980 
870 K=INT<:R>C(1)«25)+25 
872 Y=IHT(.RfCa):fa5)+5 
878 RETURN 

Lines 900.904 Plots tarset 
900 PLOT X+l,Y PLOT X+2.Y+l:PL0T X.v+l 
904 PLOT :-;+l,V+2:pL0T X+l,v + l RETURN 
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Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
Like These Every Montii 



HARD DISK DRIVE Diablo Mod 31 
12 MByte std. density Includes 
power supp and cable, rack mount 
slides, amd manual. Excellent 
condition $450 C*."- — '--^leOI 



7/16 Mm, with 32KB core fron 

Mb tape reader, interfaces for LP 2 

m condition J4bU_>»^ — V"". (TTY , and RS-232 rF,,li J , 

mL.B^-<..-P^-;^C?S SenalY,3J programmable '''■ ''"" '^""'^ 

IMPACT ""^.V!, ,nterfaces-E.g*^t W ,„^ ^^^^ ^^ 

' M naraWel '" <,,zes-Single \ ( etc ,) $800 . 



'Ie3 Includes 



. - - , , .„ SWfR;,7'""" "manuals 

3„d pa'a»«' -: ..zes-Siog>e U ... , ...^^ (Bas, 



mechanism J^J^_^^^j_^oldJ589, 

sys' 



Fortran, OS 



St. 
25C 



HEATHKIT H-11/DEC LSI-11 
system, 32K Byte storage, reader 1 
punch, video terminal, complete 
soHware. Cost $4500 assembled, 
$3500 kit. Like new. Sell for $2250. 
305-962-6677. 2058 Griffin Rd., Ft. 
Lauderdale, FL 33312. 



etc ,) $800^jMi^74^ ^^^ 
^^'''^^ii^^ImRA^MATION ALPHaI 
16- 16 k-word core memory, KK. 
PF-R Modified Mod. ASR-33 TTY| 
Manuals, utilities, assemblers anc 
many option boards - 16 bit I/O 
Driver, 16 bit I/O, Asynch modem 

contr 64 bit output, 10 bit A/D - 
D/A Fairly complete documen- 
tation Up and running in Fortran. 
I Not much more than TTY at $1000. 
Herb Sauer, 303-494-8724. 



FOR SALE: Heath H9 video ter- 
minal, excellent condition, $175 or 
^best offer. You ship [214] 962-4484 

memory board without memory 

chips and Phi deck controller bS 
(l<it,,^assembledor not working) ^ 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you witfi the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But. COMPUTER SHOPPER'S bargains wont be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation. 

Whether you are a hobbyist or a part-time user. COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace In time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it. 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items Combining 
this with low individual ad rates — 10 cents a word — 




makes it the ideal place for buyers and sellers to com- 
municate. And, its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible. 

COMPUTER SHOPPER will work for you in other 
ways, too. If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And. through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you. 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first? We'll give you your first issue FREE 
and then bill you for the next 12. If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel" on the in- 
voice and return it. 

And. to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want. 

If you don't need to use the free classified ad now, use it anytime 
during your subscription. 

Subscription: $10/year. 12 issues plus your first free one. Bank 
cards accepted. Money back guarantee. 



^ The Nationwide Marketplace for Computer Equipment 

^campuTSR shiaPi^SR 

f^ P.O. Box F26 • Titusville. Florida 32780 
Telephone 305-269-3211 

MasterCharge or VISA orders only, call TOLL FREE 800-327-9920. 
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THE HARDER SIDE 

OF LIFE 



by Bob Kinerk, interview with 
Joe Breton 

Boh Kinerk is a professional 
writer with no computer 
experience. By means of extensive 
interviews with employees, he is 
writing a series of articles 
presenting the human side of 
SoftSide and Robitaille & Sons. 

The merchants of Milford, two 
or three Saturdays baclc, hauled 
great quantities of their wares out 
of doors and carefully arranged 
them for display on rickety-looking 
card tables and on the dusty, grey 
sidewalk itself. A trend toward 
bazaar economics, I wondered. 
Some new fad sweeping in from 
the Middle East? Were my Yankee 
neighbors even now donning their 
burnooses and reading up on how 
to haggle? 

I stood by the store window 
listening for the tintinnabulations 
of what I assumed would be the 
inevitable camel bells until a visitor 
disabused me of my mistaken 
notion. It was Milford's Sidewalk 
Sale Day, an annual merchandising 
extravaganza celebrated beneath 
the powerful midsummer sun. 

Out came the cup and saucer 
sets, the racks of marked-down 
jerseys, the displays of silver 
jewelry and the unopened cartons 
of sweatshirts. Socks were going at 
three pairs for a buck, and you 
could buy attractive sandals fresh 
from the hands of a Korean 
cobbler for as little as a dollar 
ninety-nine. 

Were 1 as quick-witted as some 
of my friends, I might have hustled 
a TRS-80 or two out of doors, a 
bit of peripheral paraphernalia, an 
Atari 800, perhaps, with its vivid 
color display, and waited for the 
tides of humanity Sidewalk Sale 
Day brings to flow in my direction, 
jingling and jangling their 
pocketfuls of change. 

Ahhhhh, merchandising. 

My immediate problem, 
however, was finding the Hardside 
cashbox. Any more elaborate pitch 
had to wait on that fundamental 
discovery. And 1 had in mind a 
letter that needed answering. A 
customer from Rhode Island had 
written to ask if Hardside was for 
real. 
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His letter, of course, was more 
complex than that. He had started 
with questions of a less penetrating 
nature: "Are you affiliated with 
Radio Shack? What guarantees do 
you offer? What local services are 
available?" Three easy pitches and 
then the curve ball. "In view of 
your prices, are you guys for real?" 
The Doubting Thomas question. 
The confirmed skeptic's question. 
"Is there a Santa Claus? Are you 
for real?" 

He had seen our ad in Popular 
Electronics, the ad in which we 
offered the TRS-80 sold by Radio 
Shack for $889 at a price (modesty 
compels me to blush) of only $669. 

It's not the exact TRS-80, 
needless to say. The numeric key 
pad won't be found on ours. Most 
people don't use it because the 
math operands are not there. If it's 
game playing or use as a calculator 
or checkbook balancing, the 
numeric key pad needn't come into 
play. 

I took a seat on the maple stool 
behind the glass-topped counter 
and began more or less composing 
these thoughts into an answer (I 
had given up, temporarily, my 
search for the elusive cash box), 
when a man with "BIKE" written 
on his T-shirt stepped through the 
store's front door. "Health 
Yourself" the rest of his chest's 
message said. He was in the market 
for a computer, he told me, that 
would interface with his amateur 
radio station for antenna 
directions. 

Would the TRS-80 do it? 

He didn't want something from 
the (expletive deleted) Shack, he 
said, so we talked about three 
levels of Microtechtronics and the 
one level PET offers. I suspected 
we were getting either over his 
head or over mine. I'm not a ham 
operator myself. Two hams work 
in the other building, but I hardly 
ever see them at the store. 

"Of course, you could go Apple 
so you don't have to do so much 
home brew," I suggested. He 
perked up appreciably at that, and 
it broke my heart to have to tell 
him we are primarily a mail order 
house and that, if mail order 
people try selling Apple products, 



the Apple brass threatens to step 
down on them. Next, of course, it 
does step down on them, and if 
that doesn't work they stir up the 
Chiricahua Apaches to ride out 
from their wattle hogans and burn 
the offender's trading post down. 

The ham operator throught that 
over for a while, pulling out his 
wallet in the meantime and 
purchasing a copy of the latest 
BYTE. The shy and retiring cash 
box gave me a moment's concern, 
but I found it at last underneath a 
calculator on the shelf where it was 
supposed to be. While he thumbed 
through BYTE, I stepped to the 
front window again to see how my 
neighbor merchants were doing at 
their sidewalk sale. The ones with 
foresight had dragged lawn chairs 
out of their backyards and set 
them up behind their heaps of 
watchbands and plumbing supplies 
and neck scarves and so forth. 
They sat there, some of them with 
visors on, their feet up on cartons 
pulled conveniently close, keenly 
eyeing passers-by, ready to leap 
into action at the first sign of a 
possible sale. 

Perhaps, I thought, it is not too 
late to hustle an Atari outside. Had 
I sounded, 1 wondered, apologetic 
when I said we were mostly a mail 
order house? Had 1 said 'mostly' or 
had 1 said 'merely?' Had I created 
an impression of second-class 
citizenship? 

No need to apologize for that. It 
is the mail order concept with its 
low overhead and high volume that 
permits us to offer the kind of 
benefits we do. 

"We're basically like a warehouse 
operation," I said. "We know how 
much we have to make on top of 
pricing and we don't really have to 
make more than that." My 
thoughts had returned with a 
triumphant yelp to the impertinent 
question posed by the Rhode 
Island letter writer. "Are you for 
real?" 

The "Health Yourself" man, his 
nose buried in BYTE, was 
understandably alarmed — or 
possibly would have been if the 
store had not been filling up and 
my comments hadn't been drowned 
out. Someone wanted an 



Preferred by 
computer 
professionals 
everywhere! 



The 
Green 
Screen 



The BEST green 

screen available! 

Solid, thick green 

plastic with beveled 

edges. Don't confuse 

this with the thin filnn 

offered by other 

manufacturers. Ready 

to install, self 

bonding, gives 

dustproof seal, 

optically correct with 

no distortion, and 

shatterproof. Fits 

TRS-80 Model I 



$19.95 



TO ORDER TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 
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Adventureland tape for an eagerly 
waiting, curly-haired boy. Someone 
came in for a chatterbox he had 
ordered. A man looking intently at 
the software display declined my 
offer of assistance. Less than half 
my attention had gone to him 
anyway. Several appropriate 
remarks to make to the man who 
wondered if we were for real were 
popping off like fireworks inside 
my head, and what you might call 
a splendid defense of doing 
business the way Hardside does 
business was in the process of 
being born. 

We want to give a good price 
and we don't want to leave our 
customers out in the cold. We 
make a reasonable effort to help. 
We've got our own service unit 
here. There are some people out 
there with lower prices than 
Hardside. We don't claim to have 
the lowest price everywhere. Our 
intention is to offer the best 
possible price and still give good 
service. We give a 180-day 
warranty on the TRS-80. That's 
twice what Radio Shack offers, 
and when you bring a unit in for 
repair our expressions don't 
instantaneously freeze into masks 
of grief and pain the way 
expressions at Radio Shack do. 
(Repairs done under warranty at 
Radio Shack outlets are debits 
against the account of the dealer — 
hence the look of pain.) Radio 
Shack items we can't fix ourselves 
we ship to Radio Shack. If it's 
under warranty, then we pay the 
bill out of our own pockets. If it's 
something like a ROM problem 
(proprietary to Radio Shack), we 
are obliged to send it to Radio 
Shack to be repaired. 

Now there are other companies 
out there offering basic units and 
various peripherals at prices 
comparable to Hardside — let us 
call them Pooped Out Peripherals 
or POPs for short — who will tell 
you the instant something goes 
wrong, "Well, that's too bad, but 
you have no recourse except to 
send it to the manufacturer." Our 
own service unit can fix almost any 
basic computer problem (85 to 90% 
of the TRS-80 problems), any basic 
printer problem, etc. We don't go 
beyond that, and there are some 
things (like disk drives, by nature 
very technical) we prefer not to 
touch. 

Our biggest expense is 
advertising. A lot of times we'll 
introduce a product (the Atari line 
is a good example). When we took 



on the Atari 800, we had to say we 
liked the computer and we knew 
what its capabilities were. The 
question was would Atari advertise 
to let people know about those 
capabilities. It took three months 
from the time we advertised before 
we made a sale. A full page ad in a 
magazine like BYTE costs $3,000. 
We took that risk. Now we are 
selling Ataris at the rate of three to 
five units a week. So we can go 
back to the manufacturer and 
negotiate to get a better price. 
When we first introduced the Atari 
800 we advertised a price of $875. 
Now we can sell it at $819 because 
of larger volume. 

Are we for real? 

Pah! 

Take that, Rhode Island. 

The man who wanted the 
chatterbox was helping set up 
Adventureland for the kid. The 
man who'd been looking at 
software selected a cassette. I don't 
recall what had become of the ham 
who wanted to interface. Bea 
Kimball came in with a fresh stack 
of Pathways, and when we tried to 
fit them in the display rack, the 
stack went sploosh (those slick 
stock covers), and copies of 
Pathways slithered hither and yon. 
Perhaps the man whose shirt said 
"BIKE" seized that moment to 
escape. The street, of course, 
continued to be enticing. 
Merchandising in its most 
rudimentary form was taking place 
out there. Heaps of bargains and 
hordes of bargain hunters. The 
tintinnabulations of the camel 
train's sweet bells. Ah, Free 
Enterprise, I thought as I glanced 
out the window, how varied are 
your forms. A philosophical 
notion, that, which deserved more 
attention, but 1 hadn't the time to 
pursue it. I climbed on my maple 
stool again and began mentally 
composing a brilliant answer to the 
skeptic from the Ocean State. ^y« 




"i'm afraid that vour computer 
System is obsolete^ archaic and 
desi&ned by a competitor,,.* 
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The 

SoHware Exchange 

Lihtiaty 



TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 



^^^^ft VISA 



UNDERSTANDING 
MICROCOMPUTERS Sceibi 

Here are the answers to hundreds 
of questions about microcomputers. 
Written in simple English. You get 
the fundamental concepts behind the 
operation of virtually all 
microcomputers. Convenient 
glossary covers all the key words. 

Introduces BASIC language 
programming. Tells how to select a 
small computer system. Basic 
instructions for almost every class of 
microprocessor are illustrated along 
with details on how a CPU is 
organized and how it follows 
directives and solves problems. 
Explains flow charts, program 
worksheets and memory maps. 
$9.95 plus $1 

INTRODUCTION TO LOW 
RESOLUTION GRAPHICS Sceibi 

Now you can produce amazing 
computer graphics - even if you can't 
draw a straight line. Literally! Learn 
how to draw lines and shapes, make 
graphs, draw pictures and even do 
animation. The simple secrets of how 
to do all this are contained in 
SCELBI's new book "Introduction to 
Low Resolution Graphics." 

Today's exciting personal and 
small business computing machines 
are generally provided with at least 
some kind of "low resolution" 
graphics capability. What is low 
resolution graphics? It is graphics 
presented on a point-by-point basis 
where the number of points is limited 
to about 8000 or less. The APPLE II 
by APPLE computers. Inc., The 
Radio Shack TRS-80 and the 
Commodore PET all have low 
resolution graphics capability. So do 
many other kinds of microcomputers. 

What can you do with low 
resolution graphics? All kinds of 
things ... If you know how! You can 
plot plain and simple or fancy and 
complex graphs to consolidate data 
for business or pleasure purposes. 
But you can use the capabilities to 
improve the presentation and impact 
of almost anything you want your 
computer to tell people. It can be 
used to diiimate games or data, 
clarify and amplify educational 
materials, or just plain entertain 
people. $11.95 plus $1. 
VINYL BINDERS 

Quality vinyl binders with 12 metal 
rods, perfect for storing your back 
issues of SoftSide and upcoming 
catalogues. $4.95 plus $1 
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Atari Version 

STIMULATING SIMULATIONS, 2nd 

Edition Hayden 

by C, W. Engel 

An exciting handbook containing 
twelve "simulation programs," which 
are actually game programs. They 
include; Art Auction, Monster Chase, 
Lost Treasure, Gone Fishing, Space 
Flight, Starship Alpha, Forest Fire, 
Nautical Navigation, Business 
Management, Rare Birds, Diamond 
Thief, and The Devil's Dungeon. 
Clearly written in a BASIC format 
that is compatible with all 
microcomputers, they are all original 
and well-documented. Each program 
is presented with a listing, sample 
run, instruction, and program 
documentation, including flow chart 
and ideas for variations. 

$4.95 plus $1 

A CONSUMER'S GUIDE TO 
PERSONAL COMPUTING AND 
MICROCOMPUTERS Hayden 
by Stephen Freiberger and Paul Chew 

Both an introduction to the 
principles of microcomputers that 
assumes no previous knowledge on 
the reader's part, and a review of 64 
microcomputer products from over 
50 manufacturers. Other features 
include: extensive illustrations to 
reinforce the discussions, a selection 
and sources section to assist in 
reviewing, selecting, and purchasing 
microcomputer products; summary 
charts of major microcomputer 
products offering a quick summary 
of specifications for a given product, 
and comment sections covering the 
advantages, disadvantages, and best- 
buy tips for each microcomputer 
product. $8.95 plus $1 




SUPER APPLE BASIC 

Lutus 

Hayden Book Co. 

A structured BASIC that compiles 
into an optimized Applesoft or 
Integer BASIC program. Line 
numbers are not required, and the 
program can be written in individual 
modules and then linked together. 
Features labelled subroutines, jumps, 
and the use of variable names of up 
to ten characters. Apple II Disk, 
$39.95 plus $1 

BASIC FOR HOME COMPUTERS 

Wiley & Sons 

by Bob Albrecht, LeRoy Finkel and Jerald Brown 

Explains how to read, write and 
understand BASIC programs. This 
Guide includes applications and 
games for the hobbyist and others 
who want to put their computers to 
work or to play. "Gently leads the 
readers through the fundamentals of 
programming . . . Should be of 
considerable value to the 
apprehensive neophyte." — 
Datamation 
$7.95 
plus $1 




THE MIND APPLIANCE: HOME 
COMPUTER APPLICATIONS Hayden 
by T.G. Lewis 

Chock full of unique and 
challenging ideas for applying your 
computer to home use. Make your 
computer write poetry, balance a 
checkbook, dial a telephone 
automatically, handle household 
budgets, menu planning, shopping 
lists, and income tax calculations. 
Dozens of BASIC language 
programs, including: Buying for the 
Home; The Garage (Fundamentals of 
BASIC); The Living Room (Simple 
Retrieval); The Kitchen (Advanced 
Retrieval Systems); The Bedroom 
(Word/Text Processing); The Den 
(Business Processing); The 
Bathroom (Graphics); The Split Level 
Home (ideas); and a Glossary. 
$9.95 plus $1 



TEN EASY PIECES: CREATIVE 
PROGRAMMING FOR FUN AND 
PROFIT 

by Hans Sagan and Carl Meyer, Jr 

An introduction to the BASIC 
language througti computer games. 
Written in an informal style, it 
stimulates interest in creative 
programming of games of chance 
and of skill. Teaching by example, 
these games illustrate the various 
programming techniques at stages of 
difficulty which are suitable to almost 
unlimited modification, simplification, 
or amplification. Emphasis is on 
prompting creativity on the part of 
the reader. The text requires little 
knowledge of elementary 
mathematics. 

S7.95 (plus SI. 00 shipping charge) 
CP/M SOFTWARE SUMMARY GUIDE 

A concise, handy summary of the 
major software used on most CP/M 
systems. Included are summaries of 
the CP/M operating system, 
Microsoft BASIC, CBASICS, and the 
CP/M utilties DESPOOLS. MACS, 
and TEX. 

The CP/M summary covers the 
commands (DIR, ERA, REN, SAVE, 
TYPE, USER) and utilities (ASM, 
DDT, DUMP. ED, LOAD, MOVCPM, 
PIP, STAT, SUBMIT, SYSGEN, 
XSUB). Each one is explained briefly 
and clearly with examples. The 
booklet also summarizes all features 
of Microsofts BASIC-80 (including 
the compiler) and Compiler System's 
CBASIC. Error codes for CBASIC-1, 
CBASIC-2. and BASIC-E are also 
summarized in a single alphabetical 
list. Examples and definitions clearly 
explain the workings of DESPOOL, 
MAC, and TEX utilties offered by 
Digital Research. 

The CP/M Software Summary 
Guide is designed to be especially 
easy to use. Features are organized 
alphabetically, so the reader can find 
an explanation quickly rather than 
having to page through various 
function sections. 

S3. 75 (plus S1-00 shipping charge) 
Z-80 AND 8080 ASSEMBLY 
LANGUAGE PROGRAMMING 

The best introduction to assembly 
language we sell. You should have 
experience in BASIC. By Kathe 
Spracklen 87.95 plus SI 

MICROCOMPUTER POTPOURRI 

A pocket-sized reference for the 
beginner. Has a really great glossary 
covering all the jargon. Full digest on 
understanding microcomputers. 
S3.95 plus SI 

THE BASIC HANDBOOK 

A definite reference/idea book. 
Explains over 50 favorite versions of 
the BASIC language in detail as used 
in micros, minis, and mainframes. 
Everything you need to know about 
the most important statements, 
functions, operators, and commands. 
From the same author as the TRS-80 
Users/Learners Manual. $14.95 plus 
SI 

TAKE MY COMPUTER . . . PLEASE! 

An uproariously funny book about 
the true-life misadventures of author 
Steve Ciarcia and his computer's 
inability to cooperate. Hardcover. 
S5.95 plus S1 



working in Z80 machine or 
assembler language. Appendixed. 
S5.95 plus $1. 
SARGON HANDBOOK 

Complete documentation covering 
all algorithms in Sargon can be 
found in this guide book. Contains 
complete table of contents, block 
diagram of the program, four part 
introduction, Z-80 listing, index to 
subroutines. Fully annotated. 
S15.95 plus SI 

TRS-80 ASSEMBLY LANGUAGE 
PROGRAMMING 

Covers Z-80, and introduction to 
Assembly Language, the Radio 
Shack Editor/Assembler and T-Bug, 
and debugging methods: also 
explains how to move data, the use 
of arithmetic, compare, logic, and bit 
operators, shifts, strings, tables, 
input and output, and 12 commonly 
used subroutines. Well indexed and 
illustrated. S3. 95 plus SI 
THE SECRET GUIDE TO 
COMPUTERS 

By Russ Walters A quickie course 
on computers. S5.95 plus $1 
Z-80 SOFTWARE GOURMET GUIDE 
AND COOKBOOK 

Over 100 usable subroutines, plus 
how to use them. S15.95 plus $1 
TRS-80 DISK AND OTHER 
MYSTERIES 

The serious programmers' guide to 
Disk BASIC and the wonders of 
NEWDOS -. S22.95 plus $1 
6502 SOFTWARE GOURMET GUIDE 
AND COOKBOOK 

Includes instruction set, floating 
point and decimal arithmetic, search 
and sort routines, and more, $12.95 
plus SI 
TRS-80 INTERFACING 

What you need to know to connect 
your TRS-80 to the world. Assumes 
knowledge of some machine 
language programming. $8.95 plus 
SI. 
PATHWAYS THROUGH THE ROM 

The definitive guide to Level II 
BASIC. Includes Super Map by Fuller 
Software. The TRS-80 Disassembled 
Handbook by Robert Richardson, 
HexMem by J. Philip, Z-80 
Disassembler by George Blank and 
DOS Map by John Hartford. $19,95 
plus SI 
LEARNING LEVEL II 

The User's Guide to Radio Shack 
Level II BASIC. $15.95 plus $1 

LEARN MICRO-COMPUTERS 

A new multimedia information 
package. Includes text 
('Understanding Microcomputers") 
plus high-quality cassette. For the 
beginner just starting in 
microcomputers. Covers all the 
basics quickly, easily and enjoyably. 
Companion tape includes chapter- 
by-chapter synopsis of the book. 
Great new idea for self-study. 
S14.95 plus SI 

Z80 INSTRUCTION HANDBOOK 

Convenient pocket-size manual 
describes Z80 capabilities in easy-to- 
understand terms. Designed as a 
practical reference to mnemonics, 
machine codings, usage. For 
programmers of every level - 
beginner to professional - anyone 



CALCULATING WITH BASIC 

Use your computer to calculate 
home mortgage payments, interest 
rates, payback periods and more. 
Complete routines already worked 
out for problem solving using BASIC 
language. Also includes 
mathematics, finance and statistics, 
mechanical engineering and 
electronics. $8.95 plus $1 

PERSONAL INFORMATION 
MANAGEMENT SYSTEM 

When you're in business you've got 
a personal stake in how information 
is managed. That's because 
information is your key to success. 
PIMS will allow you to unleash the 
power of a microcomputer - and you 
don't have to become a programmer 
first. Use a computer for accounts 
receivable . . . accounts payable . . . 
maintain inventory records . . run a 
mailing list . . .keep track of credit 
charges. These are just a few of the 
many things you can do with PIMS. 
It is a ready-to-use data base 
management program for computers 
like the Commodore PET and Radio 
Shack TRS-80. You can define and 
construct your own data bases. Each 
record can contain up to ten fields. 
You can search, list and sort. There's 
even a command that let's you sum 
columns of numbers. PIMS provides 
a valuable introduction to data base 
management. Complete source 
listing. $11.95 plus $1 

APL - AN INTERACTIVE APPROACH 

This revised second edition of APL 
- An Interactive Approach has been 
renamed to reflect the fact that 
several versions of APL are currently 
being offered. In recognition of 
APL's growing use in business 
applications, more examples have 
been included, and the body of the 
text itself has undergone a modest 
shift in orientation toward 
commercial uses of APL. 

Additional functions and features 
now available in both the IBM and 
Scientific Time Sharing 
implementations have been included 
in this edition, and the chapters on 
workspace management and function 
definition have been substantially 
rewritten providing additional 
graphic aids to ttie student. Where 
appropriate, sections have been 
included on distinctive features of 
the IBM 5100 Computer. 

For this edition, nearly all the 
example functions in the text have 
been placed in a workspace named 1 
CLASS. If your APL system lacks 
this workspace, it may be obtained 
from Scientific Time Sharing 
Corporation. $16.95 plus $3. 

LITTLE BOOK OF BASIC STYLE 

Ideal reference for BASIC 
programmer, junior high to research 
scientist. Indexed, illustrated, 151 
pages. By John M. Nevison $5.95 
plus $1 




^ 1980 The Software Exchange, 
6 South St., Milford. NH 03055 
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CROSSWORD PUZZLE 




ACROSS 

I. African antelope which erases 
programs 

3. DATA is to READ as NEXT 
is to — 

6. Building this is just part of 
what you must do to solve the 
PIRATE'S COVE adventure 

9. Sugar tablet which is good for 
whatever ails you 

12. One of ten possible directions 
to travel in the Colossal Cave 

13. Like GOTO, only more like 
a boomerang 

14. Where we find the good 
Count Christo in VOODOO 
CASTLE 

15. One of several things 
encountered in the chimney of 
VOODOO CASTLE 

16. Wholesale counterpart of 
The Software E.Kchange 

20. stnemurtsnl saxeT (abbr.) 

22. Make fast while mountain 
climbing 

23. — it. What 1 did to my 
program (2 words) 

25. " . . .yneew yneet ystib — "; 
type of bikini worn by the girl in 
the mirror 

27. INTERLUDE is this kind of 
program 

28. Julius Caesar's third to last 
word 

29. You might be more than 
merely mildly suspicious of a 
poker-playing buddy who claimed 
to have this hand (2 words) 

32. For best results, do not type 
with these when entering programs 
from SoftSide 

34. Parts of the body 

35. Type of energy 

38. Chemical symbol for the 75th 
element 

39. " body happy?"; famous 

Durante line (1 1/2 words) 

41. Garden where programs run 
correctly the first time 

42. Tree-like creature from 
Tolkien's trilogy 

43. What the parrot likes to do 
to your crackers in the adventure 
mentioned in 6-across 
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DOWN: 

1. Programmer's motto: 
"Garbage In, Garbage Out" (abbr.) 

2. Method used by The Software 
Exchange to send your order 
(abbr.) 

3. Contains lemon-freshened 
borax 

4. ynapmoC (abbr.) 

5. Piece of information stored on 
a tape or disk file 

6. Your favorite software 
magazine 

7. Use these when you are too 
tired to sign your name 

8. We hope you are not using 
this to solve the puzzle! 

10. The middle of clue 

11. In PIRATE'S COVE, you 
may find a clue in one 

15. Two thirds of a distress call 

16. After executing the 
RESTORE command, your DATA 



list is to the first item of 

DATA in your program 

17. Key found on some older 
teletype machines, but not on the 
Apple, S-80, or Atari 

18. Keep in good repair 

19. The ends of way 

21. Explosive 

22. Word used to sign off the 
Atari and some time-sharing 
systems 

24. Type this to see what a 
program does 

26. One wears glasses to help — 
— (2 words) 

27. Anti abbreviation for "(5)" 

30. Electrically charged atoms 

31. Chemical symbol for the 99th 
element 

33. Fraternity (slang) 

34. Mineral deposit 

35. Command used to light a 
graphics point on the S-80 / 



36. Boolean operator 

37. Not the best thing with 
which to clean your keyboard 

40. yvne (o elddim ehT 
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Solution to last month's pu/zle 





ATARr SOFTWARE 

IKE 

DIMENSIONAL 
GRAPHICS 
PACKAGE 

by Tim Hays 

Construct data base 

by entering geometric 

coordinates, then 

view from different 

angles. Four 

programs. Low 

resolution requires 

8K, high resolution 

16K, demonstration 

program, 24K. Atari 

400 or 800. Jll 

$29.95 y|V 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 




seRsafcioRal 
softwape 

ADVANCED 
AIR TRAFFIC 
CONTROLLER 

This real-time machine language 
program puts you in the chair of a 
busy air-traffic controller. 27 prop 
planes and jets are depending on 
you as they take off, land and fly 
over your airspace. You give orders 
to turn, maintain a holding pattern, 
change altitude, approach and land 
at either of two airports. 

Written by an air traffic controller, 
this realistic fast-paced simulation 
includes navigational beacons and 
the requirement that planes take off 
and land into the wind. The 
program's continuously variable 
skill level assures that you won't 
soon tire of this instructive and 
absorbing simulation. 

In Air Traffic Controller you 
assume responsibility for the safe 
flow of air traffic within a 15 x 25 
mile area up to 5,000 feet in altitude. 
During your shift as a controller in 
charge of this airspace 26 aircraft 
become active and under your 
control. Jets and prop planes have 
to be guided to and from the two 
airports, navigational beacons and 
ten entry/exit fixes. The aircraft 
enter the controller's airspace at 
various altitudes and headings 
whether or not you are ready. 

Air Traffic Controller retains the 
basic realism of air traffic control. 
This program requires the same 
steady nerves under pressure and 
the same instant, almost instinctive, 
analyses of complex emergencies 
which are demanded of a 
professional air traffic controller 
But "ATC" adds the excitement and 
well-defined goals of a game. This 
is just a simulation, and all 
passengers left in air traffic limbo 
Dy a panicked player will live to 
fly another day. 

Air Traffic Controller is 
available for the 16K TRS-80, the 
Apple II, and Apple II plus on 
cassette for $9.95 

TO ORDER 
TOLL-FREE 

1-800-258-17901 

(In NH call 673-5144) 





The most 
realistic 
simulation of 
a pressurized 
nuclear reactor 
available . . . 

THREE MILE 
ISLAND 



from 



T1USE 



Is the technology really too 
complex for ordinary mortals to 
handle? Decide for yourself. 

Four spectacular displays 
monitor the containment building, 
turbines, filters, condenser, 
reactor core and pump house. 

Valves, pumps, turbines, filters 
and control rods are individually 
activated by keyboard command. 

Comprehensive documentation 
describes in detail the operating 
mechanisms and component 
interactions. 

Can you avoid all possibility of 
radiation leaks into the 
atmosphere while still making a 
profit? 

Are you fast enough to avoid 
the necessity for extensive 
evacuation of the population? 
Integer BASIC 48K, $39.95 



TO ORDER 
TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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Micro 

Accounting 

Systems 



80 
Accounting 



FOR 

GFFICIEIlUr with The Best Systems 



No Lii 



about It 

We're The Best In The Business 



On Today's Market 



No other software yet, has provided the simplicity, screen prompting and novice operator error detection. We design 
totally for you and the TRS-80', with accounting firms and your input. 

All of micro-accounting system's flashing cursor programs, edit practically every keyboard entry, to eliminate 
operator errors. This gives you speed and efficiency of automated bookkeeping, much more simplified with less manual 
ledger sheets to shuffle through. 



M.A.S. GENERAL LEDGER 

Our ledger is very simple to use, with up to 
200 GL-Accounts, detailed transaction files, 
trial balance reports, income statement and 
balance sheet, like a general ledger should. 
However, out-standing features include: 
auto loading, batch up to 200 debit & credit 
entries and auto edit for out-of-balance 
entries. All transaction programs edit 
everything, allow 21 character description 
and 13 for reference, unlimited daily en- 
tries. Compare different periods, with com- 
parison reports. Prepare your own depreci- 
ation with the depreciation schedule. $159.00 

M.A.S. ACCOUNTS RECEIVABLES 

Our present system will expand up to 1600 
customers with auto-billing, mailing labels, 
and many reports to help improve cash 
flow. Special features include: Ample room 
for descriptions (25 char, name, 20 for 
address, 15 for city and 2 for states). Fast 
entry of charges and payments, with 
discounting allowed, complete management 
report with true ageing, bill-mail code, disc, 
percent, total charges, pymts, last pymts 
date and amt., total disc, and remaining 
balance. Overdue account listings and 
many more features to assist. Runs by itself 
or auto posts to our general ledger. Very 
simple to keep efficient cash flow. Instead of 
eliminating your receivables, use our 
programs to help keep them current. $159.00 



M.A.S. CHECK REGISTER 

Complete with reconciliation form. We 
have everything needed to keep a efficient 
checking account. Record checks written by 
hand, as-well-as writing checks for our 
accounts payable. Will handle up to 600 
checks monthly. Record up to 200 separate 
checks or total deposits monthly. Print a 
check register with all checks and deposits, 
showing ck. fl, payee memo, amount, and 
code. You can correct checks, deposits, 
void checks, stop payment and more. 
Provides information as follows: amt. of 
total checks, amt. of total deposits, 
remaining balance, service charges and 
amt. at beginning of month. Simple to use, 
with complete error detection. Works stand 
alone or links to our accounts payable. $89.00 

M.A.S. ACCOUNTS PAYABLE 

Our system will handle up to 300 vendors 
with checkwriting, mailing labels, and 
many reports to help improve cash flow 
Special features include: The same amount 
of information as accounts receivable, fast 
entry of charges and payments, with 
discounting allowed, complete management 
report with true ageing, overdue account 
listings and many more features to assist. 
Runs by itself or auto posts to our general 
ledger. Very simple to keep efficient cash 
flow and receive discounts. $159.00 



Order The Complete Package For $489.00 And Save $77.00 

TOLL-FREE 1-800-258-1790 In NH call 673-5144 
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TO ORDER TOLL-FREE 
1-800-258-1790 

In NH call 673-5144 



From Avalon Hill 

NORTH ATLANTIC CONVOY RAIDERS ($15) 

This game is a computer simulation of the Bismarck convoy raid of 1941. The computer controls 
the British convoys and British battleships. Will the Bismarck sink the Hood, only to be sunk in turn 
by the Rodney and King George V, as in history? Or, will the Bismarck cripple or sink the British 
Home Fleet and go rampaging through the convoy lanes? Your decisions will determine the fate of 
the Bismarck. 

This SOLITAIRE game includes software and instructions for the following computers: TRS-80* 
Level II, 16K Memory Apple II*, Applesoft. BASIC, 16K Memory beyond BASIC Pet*, 16K Memory 

NUKEWAR ($15) 

NUKEWAR is a computer simulation of a nuclear confrontation between two hypothetical 
countries. You must choose the methods to defend your country: either by massive espionage 
efforts, or by building jet fighter-bombers, missiles, submarines, and anti-ballistic missiles. 
Meanwhile, your cold and calculating computer will choose its own strategy to defend its country 
while also frying to destroy you utterly! NUKEWAR is very fast-paced and easy to learn, and can be 
enjoyed equally by game players of all ages and levels of experience. Best of all, once the nuclear 
war is over, you can bring the two countries back to life and try it again! 

This SOLITAIRE game includes software and instructions for the following computers: TRS-80* 
Level II, 16K Memory. Apple II*, Applesoft* BASIC, 16K Memory beyond BASIC Pet*, 16K 
Memory. 

PLANET MINERS ($15) 

PLANET MINERS gives one to four players the chance to compete with each other and the 
computer to stake valuable mining claims throughout the solar system in the year 2050. Each player 
must decide which ships to send to which planets and when to try "dirty tricks" like sabotage and 
claim-jumping. If there are less than four players, the computer takes the other parts. (It can even 
play all by itself!) Thus, PLANET MINERS can either be played solitaire or with friends. 

This 1-4 player game includes software and instructions for the following computers: TRS-80* 
Level II, 16K Memory Apple II*, Applesoft* BASIC, 16K Memory beyond BASIC Pet 2001*, 16K 
Memory. 

B-1 NUCLEAR BOMBER ($15) 

This game gives you an opportunity to be the pilot of a B-1 bomber on a mission over the Soviet 
Union. You must fly the plane through the stiff Russian defenses to the target city, bomb it, and 
return home. Your computer controls the Soviet air defense bases with their almost unlimited 
numbers of MiG's (fighters) and SAM's (surface-to-air missiles). Your only chance to get through is 
to rely on the superior technology of your sophisticated ECM (electronic counter measures) and 
self-defense missiles. When all else fails, you can try violent evasive maneuvers. 

This SOLITAIRE game includes software and instructions for the following computers: TRS-80* 
Level II, 16K Memory Apple II*, Applesoft* BASIC, 16K Memory beyond BASIC Pet*, 16K Memory. 

MIDWAY CAMPAIGN ($15) 

MIDWAY CAMPAIGN is a computer simulation of the battle for Midway Island. Your 
microcomputer controls a huge force of Japanese ships whose objective is to invade and capture 
Midway Island. If the Japanese can win air superiority over Midway, the success of the invasion is 
virtually guaranteed. If not, they will be forced to turn back to prevent the loss of irreplaceable 
troops who would be totally vulnerable in their invasion craft. In the actual engagement, the 
Japanese made several tactical errors which cost them the battle. Your computer probably won't 
make the same mistakes! You command the badly outnumbered and outranged U.S. Navy forces. 
Your only advantage is surprise. 

This SOLITAIRE game includes software and instructions for the following computers: TRS-80* 
Level II, 16K Memory Apple 11*, Applesoft* BASIC, 16K Memory beyond BASIC Pet*, 16K Memory 
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STRINGS and THINGS 




STRINGS AND THINGS is an 
article dealing with both S-80 and 
A lari graphics. 

by Mark A. Ohlund 



Many of us who own or have 
access to a personal computer are 
familiar with the term "super 
graphics." Various authors, 
especially Leo Christopherson, 
have mastered the technique and 
consequently add a new dimension 
to their programs and 
programming ability. In this article 
1 will compare the technique 
between the TRS-80 and the Atari 
computers, and, in the process, 
discuss the means by which these 
two computers store strings in 
memory. Those of you who already 
know about "super graphics" on 
one of the computers might stick 
around to find how the other half 
of the world stores its strings. 

The term "super graphics" refers 
to the use of a character string to 
print out some sort of specialized 
graphics display. This display is 
accomplished by determining the 
location of the string in memory 
and then POKEing the ASCII 
values of the graphics characters 
(including line feeds and 
backspaces) into those memory 
locations occupied by the string. 

In the TRS-80, determining the 
place in memory at which a string 
is located is accomplished through 
the use of the function 
VARPTR(A$), in which "A$" is 
the string with the memory 
location we wish to find. VARPTR 
does not return the actual memory 
location of the string; rather, it 
returns a memory address which 
stores the location of the string in 
RAM. This system of storing one 
memory address within another is 
called a POINTER, hence the 
name VARPTR or variable 
pointer. The value stored in the 
location returned by VARPTR(A$) 
will tell us the length of AS. The 
next two locations store the place 
in memory where we can find A$, 
with the Least Significant Byte 
(LSB) in location VARPTR(A$)+1 
and the Most Significant Byte 
(MSB) stored in location 
VARPTR(A$)+2. In order for us to 
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obtain the actual memory location 
of A$ in memory, we must PEEK 
at these two locations, and through 
the proper arithmetic 
manipulations we can obtain AS's 
location. The manipulations are as 
follows: 

1,(1 I = VARF'TR(A$) 

2 x=pe:e;:k(i+1) +256)ttp[:EK(i+2) 

In this example, X will return 
the location of AS in memory. This 
confusing sequence of operations is 
necessary because the TRS-80 
allocates its string space 
dynamically. That is, the space in 
memory for a string is only 
allocated when the string is 
introduced in some expression in 
the program. Since at the 
beginning of a program the 
computer does not know just how 
much memory will be devoted to 
storing strings, it must use a 
POINTER system in order to keep 
track of where in memory the 
various strings are located. If the 
user tries to reference a numeric 
variable such as X, the function 
VARPTR(X) will NOT return a 
pointer to another address, but 
rather the actual address where the 
variable is stored. This is because 
numeric constants have a 
predefined range and occupy a 
specific number of bytes in 
memory. Whether two, four, or 
eight bytes are used is dependent 
on whether the constant is an 
integer, single precision or double 
precision number, respectively. One 
might wonder, "Why not just use 
direct addressing to store the string 
location ~ surely strings don't 
move around in memory?" This, 
however, is not the case. Those of 
us who have worked with a large 
data base program which 
manipulates hundreds or thousands 
of strings on our TRS-80 have 
experienced the phenomenon 
known as "string gathering." This 
is a term used to describe the re- 
allocation of memory when the 
computer has run out of the space 
in memory it originally allocated 
for strings. This is evidenced by an 
apparent "hanging up" of the TRS- 
80, in which the system appears to 
have crashed, and even the 



BREAK key produces no results. 
Fear not! The system has not 
crashed; it is merely re-allocating 
space for its strings, and is, in fact, 
moving the strings currently stored 
in memory to regions unknown. 
This is the primary reason for a 
pointer system, which is constantly 
updated, even when the strings are 
moved around in memory. When 
string space is filled in the TRS-80, 
the "string gathering" cleans up 
those strings no longer in use in 
the program. In this manner, as 
much memory as possible is freed 
for future string use. A direct 
addressing system would never 
function in a system like this. 

In contrast to the TRS-80's 
pointer system, the Atari takes a 
very different approach. String 
space is reserved at the beginning 
of program execution through the 
use of the DIM function. In this 
manner, string length is limited 
only by the amount of available 
memory and not to the arbitrary 
255 characters in a string that one 
finds with the TRS-80. Since string 
space is reserved in memory at the 
beginning of program execution, 
there is no need for a pointer 
system which will keep track of the 
string in memory. In this case, a 
direct addressing system will work 
because the string will remain in 
the same place in memory 
throughout program execution. 
Since strings always have enough 
space because space is reserved 
ahead of time, the '!'""'■ never 
experiences any "string gathering" 
with the Atari. 

The memory location of a string 
constant can be determined directly 
through the use of the function 
ADR(AS) where AS is the string 
whose location we wish to find. 
Just as with the TRS-80, once the 
memory address of the string in 
memory is found, the ASCII values 
of various graphics characters may 
be POKEd into those locations 
previously occupied by the string. 
Once this is done, a complex (or 
simple) graphics design may be 
displayed simply by PRINTing the 
string whose locations were 
POKEd with the graphics in 
this case, AS. 

The best wav to demonstrate the 



procedure of "super graphics" is 
through a program example. The 
following two short programs, one 
for the TRS-80 and the other for 
the Atari, will each produce a 
display of an open square with a 
dot in the middle. The actual 
POKEing routine is very similar in 
both segments; however, the 
method by which the string (A$) is 
set up in both of the programs 
does differ. 

The numbers in the DATA 
statements are the ASCII values of 
the graphic characters which are 
being POKEd into the string's 
memory space. In the TRS-80 
example, shown in figure 1, the 
values 176 and 191 are the actual 
graphics blocks. ASCII values of 
26 and 24 are line feeds and 
backspaces respectively, and the 
ASCII 32 is a space. With the 
Atari, the ASCII character set is 
shifted to provide for other 
graphics characters. Thus different 
ASCII values must be used to 
produce the same results. The 
Atari listing is shown in figure 2. 

In both these listings, the 
assignment of the slashes (" ") to 
AS is completely arbitrary. You 
could use spaces or any 
alphanumeric characters; the choice 



is yours. With each computer, it is 
important to assign a string with a 
length equal to the number of 
charactes that will be POKEd into 
it, including backspaces and line 
feeds (which is what the ASCII 30 
and 29 are on the Atari). If too few 
characters are in the string, the 
graphic design will not be 
complete. 'If too many characters 
are set in the initial string, then 
some of the assigned characters 
will appear in the final design. 
What the user should remember is 
that by POKEing data into string 
space the user can only modify 
existing strings and not create new 
strings or extend previous strings. 

You may have noticed that line 20 
in the Atari listing is much shorter 
than the corresponding line 10 in 
the TRS-80 listing. Atari's line 20 
does not really fill AS with slashes; 
rather, it places a slash in the last 
byte of AS. There will be nothing 
particularly meaningful in the first 
48 characters of AS (usually 
hearts), but we have succeeded in 
convincing the computer that the 
string is really 49 characters long. 

In this article I have tried to give 
a short tutorial and comparison of 
string handling between two of the 



FIGURE ONE 

10 A$="////7//////////////////////////////7/" 

20 CLS:i=yARPTR(A$) 

30 J=PEEK(I+l)+256xPEEK(I+2) 

^0 FOR K=J TO J+36 

50 READ X;POKE K,X 

60 NEXT K 

70 PRINT A$ 

80 GOTO 80 

90 DATA 176,176,176,176,176,176,176,26,2^,2^,2^,2^,24 

100 DATA 2'?, 24, 191, 32, 32, 176, 32, 32, 191, 26, 24, 24, 24, 24 

110 DATA 24,24,24,191,176,176,176,176,176,191 



FIGURE TWO 

10 GRAPHICS 0:DIM Hf<49) 

20 AJ<49>="/" 

30 I=ADR(h$) 

40 FDR K=I TO 1+48 

50 READ X^PDKE K,K 

60 NEXT K 

70 ? Hf ? 

80 END 

90 DATA 160. 160. 160. 160.. 160.. 29. 36. 30. 30. 

30.30.160.32 

100 DATA .32. 32. 160. 29. 30. 30. 30. 30. 30. 160 

.32.160.32.160 

Ud DATA 29.30.30.30.30.30.160.32.32.32. 

160.29.30.30 

1 20 DATA 30 . 30 . 30 . 1 69 . 1 60 . 1 60 . 1 60 . 1 60 



more popular personal computers 
on the market. Each machine 
handles string organization within 
memory by a quite different 
method, and as a result, each 
encounters advantages and 
disadvantages not found in the 
other computer. The TRS-80 must 
allocate string space as strings are 
introduced and, consequently, has 
the problem of "string gathering" 
while the Atari does not have this 
problem since memory is reserved 
ahead of time. On the other hand, 
the Atari will not permit the 
DIMensioning of an array of 
strings such as AS(I0,I0) since this 
notation does not refer to ten 
strings of length ten; rather it is 
used within the program to specify 
a substring which begins at the 
1 0th character and continues all 
the way to the 1 0th character (a 
complicated way of accessing just 
the 10th character of AS). Thus, to 
gain an array of strings with the 
Atari, the user must DIMension a 
large string and then assign various 
parts of it to smaller strings. The 
TRS-80 allows direct accessing of 
string arrays. Which system is 
better? I'll let you decide that 
question for yourself. 



An Atari One Liner 

Here is an Atari One Liner 
which requires a set of 2 paddles 
(to be plugged into slot #1). With a 
little practice, you can use the 
programs as a fancy 3-color "Etch- 
a-Sketch". One paddle controls 
horizontal movement; the other 
controls vertical movement. The 
two paddle buttons change the 
color of the line drawn. Unless 
your dexterity quotient is quite 
high, you may find it helpful to 
invite a friend to control one 
paddle. 

10 GRAPHICS 23^F10T S,tt FCf T=! TO lE+li 
^ COLOR £:f;PTRIG(0.i+PT.RICi !-' DRhUTO !;?-Pfl 
D[JLEi:S,'/l 4fa,?5-pHDDLE' ! >. 2 43 ►E;;T T 

Rich Bouchard 
.James Garon 



An Atari One Liner 

(Type the "4" and the word 
"flashes" in inverse mode.) 

1 GRiAF'HICS 18' »b, "4 Frt^T" " t: .cl^r .:,;, 
flasKes" FOR J=e TO !E+:2F0R ]-7V ^': 
712 POKE TRtCC 0:4255 fE::i I ME:"' J 

by James "you-can-do-it-better" 
Garon 
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CHAINER 




CHA IN ER is an article and 
program for S-80 disk users who 
have or are interested in NEWDOS 
80. 

by Frank R. Neal 

Upon receiving my NEWDOS- 
80, after a delay of about a month, 
I could hardly wait to dig into 
those "new" commands. 
NEWDOS-80 is just about 
everything that 1 expected, but 
there are some problem areas. 

The format command was a little 
disappointing because you have to 
use SUPERZAP to lock out any 
bad tracks. The FORMAT 
command will not do it for you! 
Another area that lacks 
documentation is the new file 
handling routines. If you are an 
expert at computer programming, 
you will have no problems, 
although, if you are like me, 
hmmmm. The sample programs 
that are included are not much 
help either. 

One of the new features of 
NEWDOS-80 is the chaining 
command. The documentation that 
is included (about 3/4 of a page in 
the manual and a badly written 
instructional program) will hardly 
fill the bill for a new owner of 
NEWDOS-80. 

If you examine the program 
"CH AINTST/ BAS" on your 
NEWDOS-80 disk, you will note 
that there are no remark 
statements included. Also left out 
are definitions of several important 
program lines. No hint is given to 
what lines 400, 500 or 900 do in 
the program and 1 found nothing 
in the manual either. 

Here are some important facts 
that for the most part are left out: 

1 . A "/ JCL" extension is 
required on all chaining files. If 
this is left out, you will get a 
"PROGRAM NOT FOUND" 
error. For the chaining program to 
find your chaining file, this must 
be added. 

2. Line 400 of the 

"CH AINTST/ BAS" prouram 
refers to a "CHRS( 130)." No real 
use for this command has been 
found other than for a sort of 
"REM" statement. When the 
chaining command finds this in the 
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file, it simply passes over it, as far 
as I know. Any ideas'? The 
statement that follows it is simply 
stored. Are these easv REM 
statements for SUPERZAP? The 
syntax is just as shown in line 400. 

3. Line 500 contains a 
"CHR$(131)."This is just like a 
PRINT statement in BASIC but 
instead you follow the syntax of 
line 500 and when the CHAIN 
command encounters it, it will 
print it on the screen. This will 
keep the user updated during 
chaining. 

4. Line 900 contains the 
"CHR$( 129)" command. This 
command makes the chaining stop 
and wait for you to press ENTER. 
It will also print a message just like 
CHR$(131) along with a 
"CHAINING PAUSED" message. 

The program that is included 
with NEWDOS-80 
(CH AINTST/ BAS) is of no real 
use unless it can be used in some 
way to help discern how the 
CHAIN command is being used. It 
will not actually build a chaining 
file for you. This is why I have 
written the "CHAINER." You can 
use it to build your own chaining 
files or modify it for your specific 
needs. The chaining done in 
NEWDOS-80 is referenced to the 
DOS operating system. In other 
words, if you want to CHAIN a 
BASIC program, the first thing 
you must do is enter BASIC. For 
example the first command might 
be: BASIC RUN "PROGRAM." 
Then after you are in BASIC and 
your program is running, you can 
continue with other chaining 
commands. Of course, the chainer 
will work equally well in DOS. 

Referring to the chainer program 
listing in figure I, lines 90-130 set 
up the file name and drive with the 
"/JCL EXTENDER." Lines 160- 
230 receive and print to disk your 
chaining commands. Lines 200-310 
will add strings together where you 
might need several statements in 
one command. Lines 330 460 will 
add on the "CHR$(XXX)" 
statement to the command, if you 
wish. 

Upon running the program, the 
first thing you will be asked for is 
the file name for the chaining file. 



Simply enter the BASIC filename. 
The program will add on the 
"/JCL" and the drive number you 
choose later. The second question 
you will be asked is what drive 
number you want to place the file 
on. The program will then ask for 
the number of commands that you 
will need to enter. Next, the 
"COMMAND FILE 
ADDITION?" question will 
appear. Simply answer yes or no. 
This will add multiple commands 
together if needed, but don't try to 
use it like BASIC. Only use this to 
keep the syntax correct. A little 
experimenting here will help. If 
you use the "COMMAND FILE 
ADDITION" when you are 
finished with that command, you 
will be asked if vou want to 
include a "CHR$(XXX)" at the 
beginning of your statement. For 
example, if you want the 
CHAINER to print - PRESS 
ENTER TO CONTINUE -, you 
would first say yes to the 
"COMMAND FILE ADDITION" 
question. Then answer -PRESS 
ENTER TO CONTINUE- for the 
string question. You will then be 
asked "DO YOU WANT A 
CHR$(XXX) ADDED?" Reply 
"YES" You will receive a menu of 
the three possible CHR$$(XX) 
functions. Since we want 
CHAINER to pause, we use 
"CHR$( 129). "When the program 
stores this, it will look like this in 
the program: 

A$(X)+CHR$(I29)+ "PRESS 
ENTER TO CONTINUE" 

When the chaining reaches this 
point, it will pause and print 
"PRESS ENTER TO 
CONTINUE" along with a 
"CHAINING PAUSED" message. 
The chaining will then wait until 
you press ENTER and then 
continue on with the next CHAIN 
command. 

You can run the 
"CH AINTST/ BAS" program to get 
an idea of just what chaining can 
do. When you are ready to check 
your CHAIN file, use: 
CMD-S+CHAIN, CHAINFILE" 
for BASIC, or use: 
CHAIN, CHAINFILE- for DOS. 

Don't be afraid to experiment 
with this program, ahhough I 



suggest that you use a disk that 
contains no valuable data. CHAIN 



is a powerful command at your 
disposal and learning to use it can 



be of great value to any 
programmer. 



10 REM M CMDER u 

20 REM H FOR NEHDOS-80 CHAINING COMfMND « 

30 REM BY Fftm R. NEAL 

10 REM 1358 BYRON M€. 

50 REM COLimJS, OH 13227 

60 REM COPYRIGHT 1980 BY FRWK R. t€AL 

70 REM ALL RIKfTS RESEWO) 

80 CLS:CLE/V$ 1000 

90 LINEINPUT"CHAIN FILDttME "IFL* 

100 INPUT"ENTER DRIVE TO STORE FILE";DN« 

110 INPUT"ENTER NUMBER OF CHAIN COMMANDS TO BE ENTERED"JCM 

120 REM MX) '/XL' TO FILEN^ 

130 Fl$=FL$+"/ja!"+ON* 

HO OPEN "OM,a» 

150 REM START INPUTTING OttlNING COMfttNDS 

160 FOR X=l TO CM 

170 PRINT"COMMAND STRING ADOHION ?":G0SUB 250 

180 TF IN$="Y" THEN 280 

190 PRINT"ENTER COm) i"',r," "JtLINEINPUT A»(X) 

200 REM SEND CHAINING COMMAND TO FILE 

210 PRINT»1,A»(X) 

220 NEXT X 

230 close: END 



210 REM INKEY ROUTINE 

250 IN»=INKEY$:F IN$="" THEN 250 

260 F IN$="Y" K? IN$="N" RETURN aSE 250 

270 REM STRING M)DmON 

280 PRINT"ENTER A 'Z' TO TERMINATE ADOmON OF STRING. "!A»(X)="" 

290 LINEINPUT"STRING ? ";ST$ 

300 TF ST$="Z" THEN 330 

310 A$(X)=A»(X)+ST*}GOT0 290 

320 REM ADD CHAINING COM^MND ? 

330 PRINT"D0 YOU NANT A 'CHR$(X)' ADDED ?":G0SUB 250 

310 F INi="N" THEN 210 

350 PRINT" >tNU":PRINT 

360 print" 1. chr*(129) 'cjwining pause hhh message'" 
370 print" 2. chr»(130) 'coining fbvm statdcnt'" 
380 print" 3. chr«(131) 'chaining print statembit'" 
390 print" 1. return to next command" 
100 print:im>ut"choice ";co 
110 rem addition of chr»(xxx) 

120 F C0=1 nCN Ai(X)=CHR*(129)+A*(X):G0T0 210 
130 IF C0=2 THEN A»(X)=CHR$(130)+A*(X):GOTO 210 
HO F C0=3 THEN A*(X)=CHR*(131)+A$(X):G0T0 210 
150 IF C0=1 Tf€N 210 
160 F'RINT"INVALrD ENTRY":GOTO 100 
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Games from BIG FIVE will 
turn your computer into a 



TRS-80 



SUPER NOVA 



© 




"Huge ASTEROIDS have invaded the 
galaxy! Your mission is to destroy them 
and the alien saucers before they de- 
stroy you!" Our #1 top selling game! 

$14.95 16K Level I or II 



HOME ARCADE 

METEOR MISSION^ GALAXY INVASION^ 




"The second Big Bang has occurred 
and the galaxy is full of stray meteors 
and asteroids. Can you survive to dock 
your ship with the space station?" 

$9.95 4K Level I or II 



iiiiiiii******* 

ifiiiiiitiiAii**** 



AjftAAAjftAAAA 



The newest and most exciting Invaders- 
type game yet! Smooth sound effects, 
sharp graphics, and the "Flagship" alien 
from Super Nova combine to make this 
our finest TRS-80 game! 

$14.95 16KLevell or II 



BIG FIVE SOFTWARE CO. 



© 1980 by Bill Hogue & Jeff Konyu 



TO ORDER TOLL-FREE 
1-800-258-1790 

(in NH call 673-5144) 
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1NTERNA-MA7.E 

continued from page 43 

28,32 AT Q: COLOR-6; HLIN 28 

,32 AT 38-q; next q\ REimn 

520 FOR Q=ll TO 1^; COLOR=i; VLIN 
Q,38-Q AT 38-Q: COLOR-7: HLIN 
24,27 AT Q: C0L0R=6: HLIN 24 
,27 AT 38-G: NEXT Q: RETURN 

530 FOR IN=21 TO 22: C0L0R-4J VLIN 

17,20 AT in: next in: C0L0R= 

7: PLOT 22,16.* CDLDR=6', PLOT 

22,21 : RETURN 
540 COLOR-4; PLOT 20,19: COLOR- 

7: PLOT 20,18: C0L0R=6; PLOT 

20,20: RETURN 
550 C0L0R=4; PLOT 19,19; RETURN 
560 REM 

MAKE LEFT TURN 
570 GOTO 580+lxiO 
580 FOR 0=1 TO 5: COLOR-4: VLIN 

Q,38-Q AT Q: COLOR-7: HLIN 

1,0 AT q: color=6; hlin i,q at 
38-q: NEXT q: return 

590 FDR 0=6 10 10 : C0L0K=4: VLIN 
S,38 AT Q: COLOR-7: HLIN 
6,0 AT Q: CDLOR-6: HLIN 6,0 AT 
38-0 ; NEXT O: RETUR'N 

600 FOR' Q=ll TO 14: COLOR-4: VLIN 
Q,38-Q AT Q: C0L0R=7: HLIN 

11,0 AT q: color-6: hlin ii 
,Q AT 38-q: next q: return 

610 rOF; IN=16 to 17: COLOR-4: VLIN 

17,20 AT in: next in: color- 
7: PLOT 16,16; coLOR=6; plot 

16,21 ; RETURN 
620 COLOR-4: PLOT 18,19: COLOR= 

7: PLOT 18,18: C0L0R=6: PLOT 

18,20 : RETIEN 
630 COL0R=4: PLOT 19,19: RETURN 
640 REM 

TURNING 
650 COLOR-4: IF Z* ASCC'B") Jmi 

660: FOR 0=1 TO 37; HLIN 1, 

37 AT Q: next Q; RETURN 
660 IF 2* ASCC'L") THEN 670 : FOR 

0=1 TO 37: VEIN 1,37 AT O: NEXT 

Q: RETURN 
670 IF Z* ASCC'R") THEN RETURN 

: FOR Q=l TO 37: ULIN 1,3? AT 

38-0: NEXT Q: RETURiN 
680 RtM 

DRAM DEAD-END 

690 CCLOR-4: IF C(K)=15 THEN COLOR- 
15: GOTO 700+I.«10 

700 for' in=2 to 35: vlih 2,35 at 
in: next in: 1=6; return 

710 for in=6 to 32; vein 6,32 at 
in; next in: 1=6: return 

720 fdr in=11 to 27: vein 11,27 
AT in: next in;i=6: return 
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730 for IN=15 to 23: VEIN 15,23 

AT in: next in:i=6: return 

740 FOR IN=18 TO 20: VEIN 17,2U 

AT in: next in:i=6; return 

750 PLOT 19,19:1=6: RETURN 
760 REM 

HEADED SOUTH 
770 FOR 1=0 TO 5 

780 tx=x-i:ty=y+i: if tx<i or ty> 

37 THEN 800:K=39xTX+41xTY 
790 IF C(K;=MC OR C(K)=TC THEN 

GOSUE; 490 
SCO TX=X+i: IF TXd THEN 820 :K= 

39j:TX+41xTY 
eiO IF C(K)=MC OR C(K)=TC THEN 

GObUe 570 
820 TX=X;TY=Y+I: if TY>38 THEN 

850:K=39!i(TX+41xTY 
830 IF C(K)*MC AND C(K)*TC THEN 

GOSUE; 690 
840 F C(K)=TC AM) FTS=1 THEN GOSUE 

1270 
850 NEXT I : RETURN 
860 REM 

HEADED ^£ST 
870 FOR 1=0 TO 5 

880 ty=y-i:tx=x-ij if tx<i or TY< 

1 TFCN 9fl0:K=39xTX+41iTY 
890 F C(K)=MC OR C(K)=TC THEN 

GOSUE: 490 
900 TY=Y+i: IF TY;>37 THEN 920 :K= 

39xTX+41)iTY 
910 F C(K)=fC OR' C(K)=TC TfCN 

GOSI^: 570 

920 ty=y:tx=x-i: if tx<o then 950 

:K=39xTX+41)iTY 
930 IF C(K)#MC AND C(K)#TC THEN 

GOSIB 690 
940 F C(K)=TC AND FTS=1 THEN GOa» 

1270 
950 NEXT I : RETUR-N 
960 REM 

HEADED EAST 
970 FOR' 1=0 TO 5 
980 TY=Y+i;TX=Xa: IF TX;>37 OR 

TY>37 then 1000:K=39iTX+41i 

TY 
990 F C(K)=MC m C(K)=TC THEN 

HKIB 490 
1000 TY=Y-i; IF TY<1 T^£N 102fl:K= 

39xTX+41)tTY 
IfllO IF C(K)=»C OR C(K)=TC THEN 

GOSUE: 570 

1020 ty=y:tx=x+i: if tx;>38 then 

105fl:K=39xTX+4lxTY 
1030 IF C(K)*MC AND C(K)»TC THEN 

GOSUE; 690 
1040 F C(K)=TC AND FTS=1 THEN GOSIB 

1270 
1050 NEXT I : RETURN 
1060 REM 



fCADED NORTH 
1070 FOR 1=0 TO 5 

1080 tx=x+i:ty=y-i: if tx:>37 or 

TY<1 THEN 110fl:K=39xTX+41«TY 
1090 if C(K)=MC or C(K)=TC THEN 

GOSUE: 490 
1100 TX=X-i: IF TX<1 IVEH 112fl;K= 

39XTX+41XTY 
1110 IF C(K)=MC OR' C(K)=TC THEN 

GOSUE: 570 

1120 tx=x:ty=y-i: if ty<o then iiso 

;K=39xTX+41)itTY 
1130 IF C(K)#MC AND C(K)#TC THEN 

GOSUE: 690 
1140 F C(K)=TC AND FTS=1 T^£N GOSUE: 

1270 

1150 NEXT i: RETURN 

1160 REM 

DRAW MAP 
1170 GR 

1180 xx=x:yy=y:sc=sc+5 

1190 for x=0 to 38: for y=0 to 38 

1200 k=39xx+41!«y: color=C(K): plot 

X,Y 

1210 NEXT y,x:x=xx:y=yy: for i=i 

to 1000 ; NEXT i: GOSUE: 290 

: GOTO 1810 
1220 REM 

COMPASS 
1230 IF C0MP*1 THEN RETURN 

1240 Hi="NOR'TH EASTSOUTH WEST": CALL 

-936: VTA£: 24 
1250 TAB 17: PRINT HI((DIR+l)x5- 

4,(DIR+l)iii5): RETURN 
1260 REM 

DRAW FOOTPRINTS 

IF FTStl THEN RETUR'N 

IF C(K)*TC THEN RETURN ;F=- 

F 

COLOR=0: PLOT 19+F,37-Ix3 

RETURN 

REM 

REMEMBER MAP 

FOR A=0 TO 38 

FOR E;=0 TO 38 

K=39xA+41.tE;: IF A=19 AND 8= 

19 THEN GOSUE: 1410 

C(K)= SCRN(A,B): NEXT B,A: RETURN 

REM 

MACHINE LANGUAGE ROUTINE 
FOR NOISE BASE 

POKE 2,173; POKE 3,48: POKE 

4,192; POf(E 5,136: POKE 6,208 

; P»(E 7,4: POKE 8,198: F'Ofv'E 

9,i; POf(E 10,240 

POKE 11,8: POKE 12,202: POKE 

13,208: POKE 14,246: POKE 15 

,166; POKE 16, O: POKE 17,76 

1 POKE 18,2: POKE 19, O; POKE 

20,96 
1390 RETUR'N 
1400 REM 



1270 
1280 

1290 
1300 
1310 

1320 
1330 
1340 

1350 
1360 



1370 



1380 



INSTRUCTIONS 

HIO PRINT "PUSH 'F' TO GO FORWARD, ' 
L' TO TURN ".* PRINT "LEFT, 'R' T 
TURN RIGHT, AND 'Ei' TO "', 
PRINT "TURN BACK." 

H20 FOR 1=1 TO 2000: NEXT i: RETURN 

H30 REM 

START 

ll-^O TEXT : CALL -936: VTAB 9 

1150 TAB 13: POKE 50,63: PRINT " INTE 
RNA-HAZE ": POKE 50,255: PRINT 
: TAB 19: PRINT "BY": TAB 13 
: PRINT "DENNIS G, \^m" 

1460 FOR D=l TO lOOO: NEXT D: POKE 
-16298,0 

H70 PRINT : TAB 5: PRINT "THE COMFUT 
EF; WILL DRAW A MAZE AT": PRINT 
"RANDOM, AND PUT YOU INSIDE, AND 
YOU" 

H80 PRINT "HAVE TO FIND THE HAY OUT, 
": TAB 5: PRINT "IF YOU FEEL INS 
ECUFf , YOU CAN" 

H?fl PRINT "CHOOSE SOME AIDS - COMPAS 
S, MAP,": PRINT "OR LEAVE FOOTPR 
INTS.": PRINT : TAB 5: PRINT 
"WOULD YOU LIKE TO LEAVE FOOTPRI 
NTS" 

1500 INPLT "BEHIND (Y/N)?",G$:FTS= 
O: IF G*(1,1)="Y" THEN FTS= 
1 

1510 INF'UT "WOULD YOU LIKE A COMPASS( 
Y/N)''",G$:COMP=0; IF G$(l,l 
)="Y" THEN C0MP=1 
INPUT "WOULD YOU LIKE A MAP (LOS 
E 5 POINTS EACH TIME YOU USE IT) 
(Y/N)'-^",Gt:MAF-0: IF G$(l, 
1)="Y" THEN MAF-1 
PRINT "t%% NOTE - YOU LOSE ONE F' 
OINT EACH": PRINT "TIME YOU GO F 
ORtJARD IF YOU'VE ALREADY": PRINT 
"BEEN THERE'" 

PRINT ; TAB ?: INPUT "DIFFICULTY 
^ (1 TO 10)",S: CALL -936: VTA£; 
2V, TAB 5: PRINT "I AM CREATING 
YOUR MAZE NOW/': GOSLE: 130 
CALL -936 
REM 

find start « end points 
print "you are red, the end is w 

hite.":tc=i:l- rnd w, if 

l*0 tf£n 1580: c0l0r=15: plot 

1,37; color-tc:x=37:y=i: plot 

x,y:e=i:g=37: goto 16io 

1580 if L»1 THEN 1590: C0L0R=15: 

PLOT i,i:x=37;y=37: color- 
Tc: PLOT x,y:e=i:g=i: goto 

1610 
1590 IF L*Z T^CN 16flO: C0LOR=15: 

FioT 37,i:x=i:y=37: color= 
Tc: plot x,y:e=37:g=i: goto 

1610 






1540 



1550 
1560 

1570 



1600 color=i5: FtoT 37,37:x=i:y= 
i: cxoR-Tc: plot x,y:e=37: 

G=37r goto 1610 
1610 (SSUB 1320: GOSUB 1370 
1620 POKE -16368,0 

1630 dir= m) (4): gosub 290: goto 

1810 

1640 REM 

READ KEYBOARD 
1650 Z= PEEK (-16384): IF Z<127 THEN 

1650:XX=3x( AES (X-E)+ ABS 

(Y-G)): pot(E o,xx: poke 1,25 

: CALL 2 
1660 REM 

COfffUTE ^EW DIRECTION 
1670 F Z= ASC("F") THEN DIR-DIR M) 

4: IF Z= ASCC'R") THEN DIR- 
(DIR+1) MOD 4: IF Z= ASCC'B" 
) TtCN DIR-(DIR+2) MOD 4: IF 
Z= ASCC'L") THEN DIR-(DIR+3 
) MOD 4 

1630 TF MAP*1 Tt£N 1690: IF Z= ASC( 
"M") THEN GOTO 1170 

1690 IF Z= ASCC'F") THEN 1700: GOSUB 
640 : GOSLIB 290 : GOTO 1810 

1700 GOSUE: 290 : GOSUB 1360 

1710 REM 

FIGURE OUT MOVE AND 

CODE IT ON MAP (K) 

DEDUCT POINT (SO IF BOO-EOO 
1720 IF DIR#0 THEN 1740 

1730 Y=Y-i:K=39)itX+41)iY: IF C(K)= 

OR' C(K)=1 THEN SC=SC+i: IF 

C(K)=0 THEN Y=Y+1 
1740 IF DIR»2 T^£N 1760 
1750 Y=Y+1:K=39xX+41xY: IF C(K)= 

OR C(K)=1 THEN SC=SC+i: IF 

C(K)=0 THEN Y=Y-1 
1760 F DIR*3 THEN 1780 
1770 X=X-1:K=39xX+41xY: IF C(K)= 

OR' C(K)=1 THEN SC=SC+i: IF 

C(K)=0 THEN X=X+1 
1780 F DIR*1 TI€N 1800 
1790 X=X+1:K=39xX+41xY: if C(K)= 

OR C(K)=1 THEN SC=SC+i; IF 

C(K)=0 THEN X=X-1 
1800 K=39xX+41)itY: IF C(K)=15 Th£N 

1850 
1810 IF DIR=0 Th£N QWQ=1070: IF 

DIR=1 THEN QWQ=970: IF DIR- 

2 THEN QWQ=770: IF DIR=3 THEN 

(Ml=870 
1820 IF Z= ASC("F") THEN GOTO 1830 

: POf(E -16368,0: GOSLJ: qhq: 

GOTO 1650 
1830 C(K)=TC: GOSUB QWQ: POKE -16368 

,0: GOTO 1650 
1840 R-EM 

YOU MADE IT! 
1850 C0L0R=15: FOR Q=0 TO 17: HLIN 
2,36 AT 19+Q: HLIN 2,36 AT 
19-Q: next Q: poke -16368, O 



: CALL -936 

1860 C(10F;=9: HLIN 16,19 AT 18: HLIN 
16,18 AT 20: HLIN 16,19 AT 
22: HLIN 22,23 AT 18: HUH 
21,24 AT 20 : VEIN 20,22 AT 
12: VLIN 18,22 AT 16: VLIN 
19,22 AT 21 

1870 VLIN 19,22 AT ZV, iJLIN 17,20 
AT 27: PLOT 10,18: PLOT 11 
,19: PLOT 14,18: PLOT 13,19 
: PLOT 27,22: GOSUB 1360 : GOSUE: 
1910 

1880 FOR D=l TO 4000: NEXT D 

1890 GOTO 1440 

1900 REM 

SOUND "CHARGE" 

1910 POKE 0,250: POKE 1,50: CALL 

7 

1920 POKE 0,200: POKE 1,50: CALL 

1930 

1940 POKE 0,130: POKE 1,120: CALL 

1950 

1960 

1970 



POKE 0,160: POKE 1,50: CALL 

9 



POKE 0,160: POKE 1,50; CALL 

7 

POKE 0,130: POKE 1,255: CALL 
7 



REM 

PFINT FINAL SCOR'E 
1980 TAB lO: PRINT "YOUR SCO^E = " 

KlflO-SC) 
1990 RETURN 
2000 REM 
2010 REM 

HAVE FUN! 
2020 REM DENNIS WARD/13520 *7 SW ELEC 

TRIC/BEAVERTON , OR/970 05/ ( 503 )641 

-8538 Q 
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COMPUTER GRAPHICS 




by Joan Truckenbrod 

The programs written here are in 
Applesoft, hut can be translated 
easily to the A tarl, and also to the 
S-80 with some help. For some 
hints, see the September issue of 
So/tSide. 

Contemporary television 
graphics and film animation 
frequently use computer-aided 
color graphic systems to produce 
both still and changing images. 
These color graphic systems have 
the potential for creating exciting 
visual effects. Animated sequences 
can be created by continually 
implementing slight changes in the 
size, position, and/ or orientation 
of a figure and by drawing the new 
figures in rapid succession. During 
this process figures can be moved 
around the screen and can be 
increased or decreased in size. 
Scaling operations provide a 
valuable, easy-to^use technique for 
creating sophisticated effects for 
video, film, television applications, 
and computer programs. 

You can simulate animation of 
objects in three-dimensional space 
on low cost computer graphic 
systems through scaling. Movement 
of an object toward or away from 
the viewer can be simulated by 
gradually changing the size of the 
object. As figures increase in size 
they appear to move closer to the 
viewer. Figures appear to recede in 
space as they are reduced in size. 

The use of scaling eliminates the 
need for constructing three- 
dimensional perspective spaces. 
Examples of this technique are 
found in popular animated films 
such as the Star Wars series. Stars 
and spaceships appear. to move out 
of deep space towards the viewer 
as they gradually increase in size. 
In television, animated sequences 
are now being used for station 
identification shorts in which the 
station name appears to move out 
from the background towards the 
viewer. A close analysis of these 
sequences reveals that the words or 
letters are merely changing size and 
possibly position on the screen. 
The sense of depth on the screen is 
an illusion created by employing 
scaling techniques. 
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The following programs illustrate 
the use of a scaling formula (see 
SoftSide, September, 1980) in 
creating the illusion of motion in a 
three-dimensional space. In the 
first example a rectangle appears to 
move back into space. This is 
accomplished by reducing the size 
of the rectangle and redrawing it 
on the same center point. This 
program will draw a series of 
progressively smaller rectangles and 
then erase them, beginning with the 
largest, to create the sense that 
they are disappearing into space. 
Each rectangle can be erased prior 
to drawing the next one by 
changing the location of the "S" 
FOR-NEXT loop. In order to do 
this the S loop must be put inside 
the R loop by exchanging lines 
1000 and 1025, and lines 1 1 10 and 
1115. In this example, the size of 
the rectangle is changed according 
to a regular increment giving an 
even flow in the animated 
sequence. The increment of change 
can be varied by using different 
step values in the R loop in line 
1025. 

The next example illustrates the 
use of progressive increments for 
determining the size changes. Any 
figure that is defined in X and Y 
coordinates can be substituted for 
the rectangle. The number of 
points in the figure must be 
specified in line 30. The X and Y 
coordinates defining the figure are 
listed sequentially in the DATA 
statement in line 60. Whenever 
scaling programs are used, the 
animated sequence must be 
planned within the resolution limits 
of the computer graphics system. 
Check statements can be inserted 
into the program to continually 
evaluate the X and Y values to 
keep them within the range of the 
system. This example introduces 
the combination of scaling and 
translation (see SoftSide, Apple, 
July, 1980) techniques to enhance 
the illusion of a figure in three- 
dimensional space. This program 
moves a figure from the 
background in the lower left hand 
corner, to a central foreground 



position, and then to the 
background at the lower right hand 
corner of the screen. The scaling 
factor in this example is not a 
regular interval as in the first 
example. The scaling is calculated 
according to a series of progressive 
increments found in the DATA 
statement in line 220. These values 
were derived from the Fibonacci 
Series, a proportional set of values. 
(The third number is the sum of 
the first and second, the fourth is 
the sum of the second and third, 
etc.) Using this series of numbers 
produces an apparent acceleration 
of the figure. The same series of 
numbers are also used for 
determining the translation factors 
listed in the DATA statement in 
line 230. Both the changes in size 
and the changes in the location of 
the figure are determined by 
progressively increasing or 
decreasing intervals rather than 
regular intervals. As is evident 
from these two examples, there is 
significant potential for 
experimentation in creating 
seemingly three-dimensional, 
animated sequences with scaling 
techniques. 



Listing #1 
10 HCOL0R= 7 

20 REM VARIABLES J 

21 REM XC IS THE X COOROINATEOF 

THE CENTER POINT CF THE FIG 
UR-E 

22 REM YC IS THE Y COCRDINATEK^ 

Tf€ CENTER POINT OF THE FIG 
URE 

23 REM ^PTS IS TIC NUMBER OF Ft) 

INTS USED TO DEFINE THE FIGU 
RE 

21 REM SF( )IS AN ARRAY THAT CO 
NTAINS A SERIES OF NIM:ERS U 
SED SECRENTIALLY AS SCAQNG 
FACTOR'S TO PRDDUCE PRBGRESSI 
VE SIZE CHANGES IN THE FIGUR' 
E 

25 REM TF( )IS AN ARRAY THAT CO 
NTAINS A PROGRESSIVE SERIES 
OF NUMECRSUSED AS TRANSLATIO 
N FACTOR'S TO MOVE Tl£ FIGUR'E 



TO DFFERENT FflSHIONS ON T 
HE SCREEN . A REGULAR SERIES 
OF NUHEiERS CAN ALSO E£ U^D 
AS IN EX.1 
30 DIM SF(ll) JF(ll) 

10 ms = 9 

55 hCR2 

60 HCOLOR- 7 

80 FOR I = 1 TO NFTS: READ X(I), 

Yd): NEXT I 
90 GOSUE: 6000 
Iflfl FC« I = 1 TO li: READ SF(I): 

NEXT I 
110 FOR I = 1 TO li; READ F(I): 

NEXT I 

209 REM THE FaiOHING DATA STAT 
EfCNT CONTAINS THE X AND Y C 
OORDINATES TfWT DESCRIBE THE 

FIGURE. 

210 DATA 129, 0,H1»0, HI, 1,137, 
1,137,12,132,12,132,1,129,1, 
129,0 

219 REM T^£ FCLLOWING DATA STAT 
EMENT CONTAINS THE SCAQNG F 
ACTOR'S USED TO DEVELOP A SER 
lES OF DIFFERtNT SIZE FIGURE 
S. 

220 DATA 1.5,3.831,5.58,6.66,7 
,33,7.75,8,8.16,8.25,8.33,8. 
1 

229 REM THE FOLLOWING DATA STAT 
EMENT CONTAINS THE TRANSLAH 
ON FACTOR'S USED TO DETERMIfC 

WE DISTANCE THAT EACH FIGU 
RE IS MOVED ON THE SCREEN. 

230 DATA 121,89,55,31,21,13,8,5 
,3,2,1 

120 REM SUBROUTINE 3000 MOVES T 
HE FIGURE FROM Tf£ LEFT WW 
CORNER OF THE SCREEN TO A C 
ENTRAL LOCATION HHILE PROGRE 
SSII.ELY INCREASING THE SHE 
OF THE FIGHVE. 

125 GOSUe 3000 

110 REM SUEfiOUTIft 2000 MOVES T 
^C FIGUra: FRm A CENTRAL POS 
inON TO THE LOJCR RIGHT HAN 
D CORNER OF THE SCREEN WHILE 
FfOGRESSIVELY DECREASMJ TH 
E SIZE OF THE FIGURE. 

150 WSME. 2000 

50C END 

2000 Fa< R = 11 TO 1 STEP - 1 

2010 W3I0R- 7 

2020 REM SUBROUTINE 1500 GENERA 
TES A NEW X COORDINATE THAT 
HAS BEEN MOVED TO THE RIGHT 
AS WELL AS EH.ARGED. 

2030 I = II GOSUE: 1500 



2035 



2010 
2050 
2060 
2070 
2080 
2090 
2095 
2100 
2200 
3000 
3C10 
3020 



3030 
3010 
3050 
3060 
3070 
3080 
3090 
3095 
3100 
3200 
1000 

1010 
15C0 

1510 
5000 

5C10 
6000 

6010 

6020 
6030 



REM SU£:ROUTINE 1000 GENERA 
TES A NEW y COORDINATE RERE 
CTING CmNGES IN SIZE m LO 
CAHON. 

OmiE. 1000 

fftOT NX,NY 

FOR' I = 2 TO 9 

GOSUEi 1500 

GCKUB 1000 

HFIOT TO NX,NY 

NEXT I 

NEXT R 

RETURN 

^COLOF:= 7 

EOF; R = 1 TO 11 

REM SUBROUTINE 5000 GENERA 
TES A NEW X COORDINATE THAT 
HAS BEEN MOVED AND REDUCED I 
N SIZE. 

I = i: GOSUE; 5000 

GOSUB 1000 

hflOT NX,NY 

FOR I = 2 TO 9 

GOSUE; 5000 

GOSUE: 1000 

HFIOT TO NX,NY 

f£XT I 

NEXT R 

RETURN 

NY = (Yd) + YC) X SF(R) - Y 
C + F(R) 

RETUR'N 

NX = (X(I) - XC) % SF(R) + X 
C + TF(R) 

RETURN 

NX = (X(I) - XC) t SF(R) + X 
C - TF(R) 

F£TURN 

REM COMPUTE THE CENTER POI 
NT 

XS = 280:YS = 192:XL = flIYL = 


FOR J = 1 TO NP 

IF X(J) < XS THEN XS = X(J) 



6010 IF X(J) > XL THEN XL = X(J) 

6050 IF Y(J) < YS THEN YS = Y(J) 

6060 IF Y(J) > YL THEN YL = Y(J) 

6070 m.1 J 

6080 XC = (XS + XL) / 2:YC = (YS + 

YL) / 2 
6090 RETURN 
] 




Listing #2 

10 REM THIS PROGRAM DRAWS A SET 
OF SEQUENHALLY SCALED RECT 
ANGLES TO CREATE A SENSE OF 
DEF'TH IN SPACE 

20 REM VAR'I/«:LES: 

21 R'EM XC IS THE X COfR'DlNATE 

F THE CENTER POINT OF THE FI 
CURE 

22 REM YC IS THE Y COORDINATE 

F THE CENTER POINT OF T* FI 
CURE 

23 REM hf 'TS IS THE NUME;ER OF PO 

INTS USED TO DESCRIBE THE FI 
GUF£ 

21 REM R REPRESENTS THE SCALING 
FACTOR 

30 NPTS = 5 

10 DIM X(25),Y(25) 

50 FOR I = 1 TO NF'TS: READ Xd), 
Yd): NEXT I 

55 REM THIS DATA STATEMENT CONT 
AINS THEX AND Y COORDINATES 
THAT DEFINE THE FIGURE TO BE 
SCALED 

60 DATA 137,90,118,90,118,95,13 
7,95,137,90 

65 GOSUE; 3000 

70 HGR2 

1000 FOR S = 7 TO STEP - 7 

1018 REM THE VALUE OF S IS USED 
TO CONTROL THE COLOR OF THE 
FIGURE 

1020 REM THE FIRST TIME THE REC 
TANGLES ARE DRAWN S=7 AND TH 
EY ARE DRAWN IN WHITE. THE SE 
COND TIME S=0 AND THE RECT/tfJ 
GLESARE DRAWN IN ELACK MAKIN 
G THEM AFf'EAR TO DISAPPEAR I 
N SPACE 

1025 FOR R = 23 TO 1 STEP - .3 

1027 tCOLOR= S 

1028 REM SUE;R0UTINE 2000 CONTAI 
NS THE X AND Y SCALING FORMU 
LAS 

1030 I = i: GOSUB 2000 

1050 HFtOT NX,NY 

1060 FOR I = 2 TO NPTS 

1070 GOSUE; 2000 

1090 HF'LOT TO NX, NY 

1100 NEXT I 

1102 FOR L = 1 TO lOO: NEXT L 

1110 NEXT R 

1115 NEXT S 

1200 END 

200C NX = (Xd) - XC) X R + XC 

2010 NY = (Yd) - YC) X R + YC 

continued on page 80 
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OCTADRAW 

continued from page 41 

tuwirds t-Ke top of tte scrssr. ur;!e55 
it 15 alreadi! tkere. if; wkid'. case it 
is sent t-o tl-.e bcttoia (rsci!) t>^t 
f-95>. The express iori (V^^) e^iLOls S 
if false ard 1 if tnje. In siiiiilar 
fisl-.iori, lires 5fce-55S l-j;idle ;noticr; 
downward. left, and i.t=, resperctivela 
(eacK with, tirap-aramd > . 
556 IF S/2=IMT!:S-'2> THEN y=Y-l+PX(Y=e) 
see IF S=9 OR S^!3 a? S=5 THEM V=Y+1-PK 

57S IF S>8 HhO £<13 T!€H ^;=X-l+P:S<X=eJ 
5Se IF SM »e S<5 Tf£N X=X+!-PX(X=P> 
Line 590 Tests for acti'.'ita frois Joy- 
stick #2 wkicK controls the color If 
there is r»o response- the draw ins rou- 
tine returns to whichever routine 
called it - human draw ins or cofuputer 
(i'lwins 
590 U=STIO;(:i>:IF i-i=!5 fitH tETUS'N 

Line £96 Only reached if atteiViPt is 
iiade to ch.arise the colci"-s. U will 
contain the nuiTiber cor^'espondins to 
the position of joystick #£ W tests 
for th.e press ins of the fire-button 
0=ses, !=no. This rajiiiber is doubled 
sirce luniir^ance aiay take on only even 
tialues- 

680 iJ=STRii:(: ! xa 

Lines 6 10-690 Chines the colors by 
either aiddins 1 to Hx or 2 to Lx/ de- 
pending on wl-ether or rot button #2 is 
pressed Checks are iivaide to see if 
either value has reached 16 If so, 
it is res.;t to ^ero 

610 IF <J=14 -ne-t HJ^-t+l-a-M! ) L4=L4+2-lJ 

620 IF H4=16 T.HEH H4^<3 
630 IF L4=ie THEN L4=0 
640 IF i>!l THEN H!^Hl + !-<lJ-S:' Ll=Ll+2-H 

650 IF Hl = 16 Tf€H Hl=e 

660 IF Ll = !6 Tf£M Ll=e 

670 IF '.1=7 T1€N Hi^J+I-'a'J^S) L2=L2+2-W 

680 IF H2'==!e T^€H .H2'^0 

690 IF L2-16 THEN L2'=e 

Line 700- jivakes tke actual color 
chanses 

700 SETCOLOR 0,0,S^i£TC:uLOF' 1,H1,L1 SETC 
OLOR 2,H2',L2SETC0LCfi' 4, H4,L4 RETURN 

Lines See-820 Ro^jtire to let cohipu- 
ter do the idrawins. T=0 simulates the 
pressing of button #1. J simulates the 
aciveivient of the stick in one of the 3 
directions; a test is aiade to see if 
the human wishes to resijiie drawins 
(has he pushed STICK!: S;':' Line 316 
simulates an occasional "1 if tins of 
the crayon"- settirs T=l causes cursor 
Jiotion withjout draw ins You iiiay wish 
to experiiiient with values othe: tl-ir 
0.1 in lire S10 L is a randoraly cho- 
sen lensth for each line 

see T=8£=5+IHT(R!-O':ej:?:;0:'IF STIChCeX! 
5 THEN 100 

310 IF RHO(eX0 1 imt T=l 
820 L=2+RHDi3a!0 FOR 1=1 TO L GOSUB 523 
l€KT I I13T0 ;30i3 

Line 900 dioes the actijal drawms. The 
first F'LOT coiVuiand draws a point at 
the cursor position The second PLOT 
dt^aws a reflection of the first in 
the Y-axis The third idraws the re- 
flection across the center, and the 
fourth idarus the reflection across the 
K-axis Finally. X arrf Y are swapped 
MC'tice that 1 ire 529 serds us here 
twice. The first tiire. when X and Y 
are swapped, it is in preparatiom for 
drawins the second sroup- of four 
dots Each of these will be reflec- 
tions in the jiiain diasorials of t.he 
first fou." The ssccrd tirae thj'oust- 
this subroutine, ti-e S':.!appins cf X 
and Y restores theiV; to their p.-'opar 
values 

900 PLOT X4A,YPL0T S-X,YPL9T O-X.P-Y^P 

LOT X+H , P-Y ■ 2=X - X=Y ■ Y=3 ■ SETUP' 
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HI RESOLUTION 
DRAWING 

Connect any points on 
the screen, fill areas, 
paint with a set of nine 
"brushes" (or define 
you r own) , and 
draw with, plot, 
rotate, and scale 
shapes that 
you define. 







SHAPE 

TABLE 

DESIGNER 



Design shape tables with 
keystrokes or paddles 

Also included are Applesoft 

Invaders and Slot Machine — 

colorful variations of well-known 

diversions whose graphics were 

created with this package , and 

instructions for saving graphics 

on disk and putting them in your 

own programs. 
32K Applesoft ROM . $29.95 on 
diskette 
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Create 3- 

dimensional 

graphics! 

by Mark Pelczarski 



3-dimensional figures can 
be rotated, shifted, scaled, 
or distorted. Each figure 
can be saved on disk and 
later assembled into larger 
figures, with each part 
capable of being 
manipulated. Screen 
images may be saved and 
used with other programs. 

48K Applesoft ROM 
$29.95 on diskette 



TO ORDER 
TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 
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Hidden Colors in Graphics 8 




by James Garon 

A new Atari concept and sample 
programs requiring 16 K and a 
Joystick. 

In GRAPHICS 8, we are told, 
there can be only two shades of a 
single color: one shade for the 
background and the other shade 
for the drawing. Normally this is 
true, however, it is possible to 
create additional colors in 
GRAPHICS 8. The secret Hes in 
the fact that to create a white dot 
against a black background, for 
example, the computer actually 
draws a yellow dot next to a blue 
dot (colors may vary depending on 
TV). This double-dot appears white 
to the eye. Yellow is plotted 
whenever the first number (X) in 
the PLOT X,Y command is an 
even number (0, 2, 4,. ..316, 318). 
Blue is plotted in the odd- 
numbered columns of the 
GRAPHICS 8 screen (1,3, 
5,.. .317. 319). 

Therefore, if we draw a figure 
only in the even-numbered 
columns, or if we draw the figure 
normally and then erase all odd- 
numbered columns, the figure will 
appear yellow. Similarly, a blue 
figure will consist entirely of points 
which lie in odd-numbered 
columns. 

It is useful at this point to 
consider the way that DRAWTO 
handles lines which are almost 
vertical. For instance, if X is an 
even number and we PLOT X,0 
and then DRAWTO X+1,159 the 
result will be a yellow line which 
begins at X,0 and drops straight 
down to X,79 and a blue line 
which starts at X+1,80 and 
continues down to X+1,I59. 
Placing many of these lines in a 
row across the screen, and making 
sure that X is always an even 
number, will give us two colored 
rectangles: 

10 F.X=0 TO 318 STEP 
2-.PL.X,0:DR.X+l,159:N.X 
If we allow the DRAWTO lines to 
become slightly less vertical, we will 
then be drawing several alternating 
bands of color across the screen: 
10 F.X=2 TO 3 10 STEP 



2:PL.X,0:DR.X+9,159:N.X 

Now that we know how to 
obtain blue and yellow in 
GRAPHICS 8, we can combine 
these colors with the two shades of 
the background color to get a total 
of four colors. The first program 
(listing #1) uses the technique we 
have outlined to draw a 
checkerboard in blue and yellow, 
give it a border, and place the 
black and the white checkers upon 
their correct squares. 

When the drawing is complete, 
two SETCOLOR statements will 
appear in the text window. These 
are the SETCOLORS currently 
being used. Using joystick #1, you 
can experiment with changing these 
SETCOLOR statements and 
observe their effects on the picture. 
Pressing left or right will change 
the hue of COLOR or COLOR 1 
respectively. Notice that the 
computer ignores the hue of 
COLOR ( the middle number in 
the SETCOLOR 1 ,A,B command). 
Pressing left or right with the fire- 
button held down will alter the 
luminance of COLOR or 
COLOR i. There are over 1000 
different color combinations. 

Listing #2, CHECKER 
CHALLENGE, will give you a 
chance to solve a solitaire puzzle 
with the checkers. All you have to 
do is move the black checkers to 
the squares now occupied by the 
white checkers and vice versa. 
Sound easy? There are only three 
rules: 

1) You must use legal checker 
moves and alternate black and 
white (the color of the blinking 
cursor is the color of the checker 
you must move next.) 

2) No jumps are allowed 

3) There are no kings (no 
backward moves!) 

To move a checker, use joystick 
#1 to position the cursor in the 
same square as the checker you 
wish to move. Now press the fire- 
button. Half of the checker should 
disappear. Move the cursor to the 
square to which you plan to move. 
Press fire. If the move is legal, the 
rest of the checker will be removed 
from the old square, and the 
checker will be redrawn in the new 
square. The cursor will now change 
color. Continue moving checkers 



until either you are hopelessly 
blocked and have no further moves 
or until you win (SCORE=24). You 
receive one point for each checker 
that successfully reaches one of 
the last three rows opposite its 
starting side. 

Since CHECKER 
CHALLENGE uses control 
character graphics that cannot be 
printed, use the following to 
discover what to type on lines 240- 
260 and 2000-2009. 
Symbol Meaning 

b blank 

d ESC followed by CTRL 
= (looks like down- 
arrow) 
1 ESC followed by CTRL 

-I- (looks like left-arrow) 
= SHIFTed equal sign 
(appears as vertical line) 

Any capital letter should be typed 
with the CTRL key held down (Q 
means CTRL Q, etc.). 

Lines 240-260 contain the 
graphics for the word SCORE: 
240 ? "bbbbbbbb 
QREQREQREQREQREI" 
250 '.' "bbbbbbbbZRE= 
bb=b=AWCARb" 
260 ? "bbbbbbbb 
ZRCZRCZRCZRCZRCK" 



Lines 
for the 

2000 7 

2001 7 

2002 7 

2003 7 

2004 7 

2005 7 

2006 7 

2007 7 

2008 7 

2009 7 



2000-2009 contain graphics 
numerals zero through nine: 
'QREdlll=b=dlllZRC" 
'bbEdl=dlX" 
■QREdlUQRCdlllZRA" 
'QREdlnRDdlllZRC" 
"WbWdlllZRSdlX" 
'QREdlllZREdlllZRC" 
'QREdlllAREdlllZRC" 
'QREdl=dlX" 
•QREdUlARDdlllZRC" 
■QREdlllZRDdlllZRC" 



Listing #1 



5 GRAPHICS 8 H1=0 L1=M H2=0 L2=0 SETCBL 

OR 1, HI, LI .SETCOLOR 2,tG,Li 

10 COLOR 1 FOR' .«.=20 5 TO 294 STEP 2 9g P 

LOT :>;,0 ORrt'JTO :>:+5, i59i€:>T ;«: 

20 COLOR: 1 FOR >'^r? TO 12 STEP -1 PLOT X 
.0 CRAWTO :>;+9, 159 PLOT 312-:>;,0 DRAWTO 32 
1-v, 159 NEXT X 
30 FOR Y=8 TO 8 STEP -1 PLOT 14,Y ORhWTO 

30ti,Y PLOT 21,159-Y DRWITO 306. 159-Y ►£ 
XT Y 

40 COLOR 1 FC(? 0=59 TO 2b3 STEP bS ItjO: 
U=C' GOSUB lee U<'-33 Li^Se GOSUE 100 0=0+ 
2 1.1=48 GuSLE 100-.ME:-;T Q 
50 COLOR FOR' Q=-30 TO 234 STEP 68 ',1=101 

U=C' GOSUe 100L!=Ci+35'.'=118 GOSLE !0tM!= 
Q+2 U=137 GOSIE 130 .NEXT 
60 POKE 752, 1 PO(:E £56.! PCCE 657.13 ■ " 
CHECKERS" 

continued on page 74 
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-)(- GAMES 
TRS-BO Opera Theatre 

Magnificent sound! by Richard Taylor 

Levelll, 16K $9.95 

Challenge 

Word game witli sound by Richard Taylor 

Level II, 16K $9,95 

Briilge Challenger 
by Personal Software 

Level II, f6K $19,95 

Invasion 

by Ctiris Freund 

Level II, 16K $9,95 

Disk $14,95 

X-WIng Fighter II 
by Chris Freund 

Level II. 16K $9,95 

Talpan 

by Art Canfil 

Levelll, 16K $9.95 

Sargon Chess 

by Dan and Kathe Spracklen 

Level II, 16K $19,95 

Sargon II 

by Dan and Kathe Spracklen 

Level II, 16K $29,95 

on disk $34,95 

Amazin' Mazes 
by Robert Wallace 

Level 11, 16K $9,95 

Snake Eggs 

With sound by Leo Christopherson 

Level II. 16K $1495 

Life Two 

With sound by Leo Christopherson 

Level II, 16K $14 95 

Android Nim 

With sound by Leo Christopherson 

Level II. 16K S14.95 

Bee Wary 

With sound by Leo Christopherson 

Level II, 16K $14,95 

Tycoon 

by David Bohike 

Level II, 16K $7,95 

9 Games for Preschool Children 
by George Blank 

Level II, 16K $9,95 

End Zone II 

by Roger W, Robitaille 

Level II, 16K $9,95 

Space Battles 
by Level IV 

Level II, 16K tape $14,95 

32Kdisk $19.95 

Star Trek 

by Lance Micklus 

Level II, 16K $14,95 

Adventures on Tape 
by Scott Adams 

Level II, 16K $14,95 

Choose one, 

Adventureland; Magical beings, perils and puzzles! 

Pirates Cove: Clue in a blood-soaked book. 

Mission Impossible: Foil the saboteur, save the 
reactor! 

The Count: Protect your neck! Whodo you think lives 
here' 

Voodoo Castle: Remove the curse from Count 
Cristo, 

Strange Odyssey: The ruins of an ancient alien 
culture' 

Fun House: Takes all your brains to get past the gate! 

Pyramid of Doom: Watch out for the Nomad! 

Ghost Town 
Adventures on Disk 
by Scott Adams 
$39 95 for three-game combinations: 

1) Mission Impossible, Pirates Cove, Adventureland 

2) Voodoo Castle, The Count, Strange Odyssey 
$24,95 for two-game combinations: 

3) Fun House, Pyramid of Doom 
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TheSahware Exchange 

market Bosket 

TO ORDER TOLL FREE 

1-800-258-1790 



SOFTWARE 
FOR THE 
TRS-80 



In NH call 673-5144) 



Adventure Sampler 

by Scott Adams 

Mini-version of Adventureland, serves as introduction 

Level II, 16K $6.95 

Pork Barrel 

by George Blank 

Level II, 16K $9,95 

Barricade 

by Small Systems Software 

Machine Language $9,95 

Pentomlnoes 
by James Garon 

Level II, 16K $7,95 

Mean Checkers Machine 
by Lance Micklus 

Level II, 16K tape $9,95 

Disk $14,95 

Kriegspiel II Level II16K $14,95 

Time Trek 

by Joshua Lavinsky 

Level II, 16K $19,95 

Kamikaze 

by Russell Starkey 

Level II, 16K $7,95 

Fastgammon 

by Quality Software 

Level II, 16K $19,95 

Cribbage 

by Roger W, Robitaille 

Level II, 16K $7,95 

Galactic Empire 
by Doug Carlston 

Level II, 16K $14,95 

Galactic Trader (a sequel) 
by Doug Carlston 

Level II, 16K $14.95 

Galactic Revolution 
by Doug Carlston 

Level II. 16K $14.95 

Galactic Trader and Empire 

on disk 32K $29.95 

All 3 on disk $39.95 

Airmail Pilot $7.95 

Air Trallic Controller $9.95 

Air Raid 

by Small Systems Software 

Level lor II, 4K $9,95 

Lost Dutchman's Gold 
by Teri Li 

Level II, 16K $9,95 

Driginal Adventure 

t)y Microsoft as played on PDP-10 

32Kdisk $29,95 

Pigskin (Football) 
by Acorn Software 

Level II, 16K S9,95 

PR Dogfight 

by David Bohike 

Level II, 16K $7,95 

Journey to the Center of the Earth 
by Greg Hassett 

Level II, 16K $7,95 

See SoltSide on cassettes lor additional games 
Oatestones of Ryn 

cassette $14,95 

disk $19,95 

Starlleet Drlon 

cassette $19,95 

disk $24,95 

Invasion ol Drlon 

cassette $19,95 

disk $24,95 

Morloc's Tower 

cassette $14,95 

disk $19,95 

Rescue al Rigel 

cassette $19,95 

disk $24,95 

Temple of Apshai 

cassette $24 95 

disk $29,95 



HOURS: 

MONDAY - FRIDAY 

9 AM to 9 PM 

SATURDAY 

11 AM to 3 PM 




EASTERN TIME 



Interlude 

cassette $16,95 

disk $19.95 

81- Bomber $15 00 

Nukewar $15.00 

Midway Campaign 

$15.00 

North Atlantic Convoy 

Raiders $15.00 

Planet Miners 

$15.00 

PInball 

cassette S14.95 

disk $20.95 

Amateur Astronomy 
Handbook 

cassette $14.95 

Computer BIsmark 

cassette $49.95 

:3^ BUSINESS 

Inventory System 11.3 

by M. Kelleher 

Improved version $79.95 

Inventory S' 

by Roger W. Robitaille 

Level II, 16K tape $24 95 

32K disk/without invoicing $39,95 

with invoicing $59,95 

Payroll 

by Stephen Hebbler 

Disk 32K $39,95 

Mail List II 
by SBSG 

32Kdisk $49,95 

Small Business Bookkeeping 
by R,W, Robitaille 
Level II, 16K with journal 

disk S3695 

tape $31,95 

without journal 

disk $29,95 

tape $24,95 

Accounts Receivablefwith invoicing) 

by Stephen Hebbler 

3 disks, 2 manuals; 32K, 2 drives, line 

printer $69,95 

CCA Data Management System 

by Personal Software 

Ready for transfer to disk, with manual 

Tape $7495+ S2 

5|c; SPECIAL PURPOSE 

Histograph/Scattergram 

by Gary Breschini 

Level II. 16K $9,95 

Tiny Comp A BASIC Compiler in BASIC 
by David Bohike 

Tape $19,95 

Disk $24,95 

RPN Calculator 
by Russell Starkey 

Level II. 16K S9 95 

Ham Radio 

by Michael Kelleher 

Level II. 16K S9,95 

Ham Radio 

Advanced version for 32K 

disk $24 95 

Electronic Assistant 
by John Adamson 

Level II. 16K $9,95 

Basic Stalistics 
by Steve Reisser 

Level II. 16K $9,95 

Magic Paper Calculator 

by Russell Starkey 

Level II. 16K $14.95 



Keyboard 80 (Improved) 
by John Adamson 

Level II, 16K S9.95 

Scrlpsll $95+S2 

Dynamic Data Base 

by Ken Knecht 

Manual and 3 programs on disk for 32K or larger 

systems with one or more drives $39.95 

■^ PERSONAL 

Typing Tutor 
by 80 US 

Level II, 16K $19.95 

I Ctilng/Blorhythms 

together $9.95 

Secrets ol the Tarot 
Cards of Fortune 

together $9.95 

Personal Finance 
by Lance Micklus 

Level II. 16K $9.95 

Advanced Personal Finance 
by Lance falicklus 

32Kdisk S24.95 

Home Financial Management 
by Michael Kelleher 

Level II. 16K S9.95 

Periodical Cross Deference 
by Dave Stambaugh 

Level II. 16K $14.95 

32K disk $19.95 

Roots 

by Bill Shotar 

32Kdisk $19.95 

5|( UTILITIES 

T-Short 

by Web Associates 

Level II, 16K $9,95 

ZBO Zap Command 

disk $29,95 

IRV 

by Robin Mork 

Level II, 16,32, and 48K 

cassette $24,95 

disk $29,95 

APLM 3.0 

by Phelps Gates 

Deluxe version— 32K disk $39,95 

Level II, 16K tape— reduced features, no course or book 

$14.95 

Book (separately) $16.95 * $3 

File Manager 80 
by Nepenthe 

32K disk $49.95 

Automated Disk Directory 
by George Blank 

32K disk, requires NEWDOS $14.95 

STAD 

Trace and Debug Monitor for tape and disk systems 16, 

32 and 48K on one tape $24.95 

NEWDOS by Apparat $49.95 

NEWDOS* by Apparat $99.95 

NEWDOS 80 by Apparat $149.00 

RSM2 by Small Systems Software 

Level II. 16K $26.95 

BSM2D by Small Systems Software 

Disk for 16-48K on one tape $29.95 

KVP by Lance Micklus 

Tape #232 $14.95 

Disk $19.95 

ST80 Smart Terminal 
by Lance Micklus 

Level II. 16K $49.95 

ST800 Smarter Terminal 

by Lance Micklus 

For Disk $79.95 



NOTICE 

All prices are subject to change 
without notice. The Software 
Exchange is not responsible for 
typographical errors, including 
prices. 



TRS-80 is a trademark of 
Tandy Corporation 



ST80-UC dedicated to THE SOURCE 
by Lance Micklus 

Level II. 16K $24.95 

ST80 III 

by Lance Micklus $150.00 

Micro Text Editor 
by Don Coons 

Level II. 4Kor 16K $9.95 

Level III BASIC 

by Microsoft $49.95 

Level I In Level II 
by Apparat 

Level II. 16K $14.95 

FDBTBAN 
by Microsoft 

32K. 2 disks $80.00 + $2.50 

Assembler 
by Microsoft 

32K $80.00 +$250 

FORTRAN Plus Assembler $1 50.00 + $5 

Spool 

Will print an ASCII file to a parallel line printer at the 
same time you are using your computer for another 
program. For 32K disk systems only. Will NOT work 
with NEWDOS (23 or VTOS 3.0 OK). 

Disk $24.95 

Cross Reference Utilllles 

by Lance Micklus 

Level II cassette versions 

RENUMX (XREF with RENUMBER and rescue after 

reset) $14.95 

RENUMBER separately $7.95 

RX— Cross Reference for Disk 
by Lance Micklus 

32K. 1 disk $24.95 

RENUMBER 

by Lance Micklus 

The full-featured RENUMBER program. One version 

now works in 16K. 32K. or 48K $7.95 

System Copy 

by Kalman Bergen 

Level II. 16K $9.95 

Floppy Disk Diagnostic 
by Dave Stambaugh 
Disk with manual $24.95 

^ BOOKS 

Sargon Handbook 

by Dan and Kathe Spracklen $15.95 + $1 

Ttie BASIC Handbook 

by Dr David A Lien $14.95 + $1 

Z-80 Instruction Handbook 

tiy Sceibi Publications S5.95 ♦ S1 

The Little Book of BASIC Style 

by John Nevison $5.95 + S1 

Pathways Through the ROM $19 95 + $1 

TRS-SD Assembly Language 
Programming 

by William Barden. Jr $3.95 + $1 

APL — An Interactive Approach 

by Gilman and Rose $16.95 + $3 

Learning Level II 

by Dr David A. Lien $15.95 + $1 

Z'80 Software Gourmet Guide and Cookbook 

from Sceibi Publications $15.95 + $1 

TRS-SO Disk and Other Mysteries 

by Harvard Pennington $22.95 + $1 

TRS-80 Interfacing 

by Jonathan Titus $8.95 + SI 

Secret Guide to Computers 

by Russ Walters $5 95 * $1 

Calculating with BASIC $8.95 +$1 

Understanding Micro Computers $9.95 * $1 



Take my Computer Please $5 95 -(- $1 

Learn Micro Computers $14.95 + S1 

Micro Computer Pot Pourri $3.95 + SI 

Personal Informstion Management System 

Sceibi Publications $11.95+ $1 

Z-8D and 8080 Assembly Language Programming 

by Kathe Spracklen $7.95 + $1 



>Jc SUPPLIES 



Cassettes: Boxes of 10 each 

C-10 $6.95 + $1 

C-20 $7 95 + S1 

Diskettes: 

Dysan (premium quality) 

BoxofS $29.95 + 51 

BASF 

Box of 5 $19.95 + $1 

Box of 10 S34 95 + S2 

Case of 100 $299.00+ $3 

Scotch 

Box of 10 S39.95+ S2 

Diskene Storage Box $5.00 + $1 

Floppy Armor'" 

Protective envelopes for shipping floppy disks 

5 pack $4.95 + S1 

SottSlde Ulnyl Binders $4 95 + $1 

Tape Recorder Alignment Kit $9.95 + $1 

Floppy Disk Savers S14.95 

Floppy Disk Refills $7.95 



• No sales tax. 

• All C.O.D.'s or special 
delivery orders are a minimum 
of $5.00 for special handling. 
For more detailed descriptions of 
our software and supplies send 
for the TSE Catalogue - its FREE! 
Write or call today for your copy: 

TOLL-FREE 
1-800-258-1790 

(in NH call 673-5144) 

SoftSide Publications, 
P.O. Box 68, Milford, NH 03055 



/ 



? ? MOVING ? ? 

TO CORRECT OR CHANGE YOUR 

ADDRESS ATTACH LABEL FROM YOUR 

LATEST COPY HERE AND PRINT NEW 

ADDRESS BELOW: 



\ 



Name 

Address 
City 



State. 



-Zip. 



\ 



MAIL TO: SoftSide Publications, P.O. Box 68, Milford, NH 03055 
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The 
Ppple Stand 



TO ORDER 

TOLL FREE (orders only) 

1-800-258-1790 



(In NH call 673-5144) 



KEY 

I - Integer BASIC 

M - Machine Language 

(Apple II or Apple II*) 
A - Applesoft 
ROM - Apple II Hus or Applesoft card only 



Your Apple M* software market from The Software Exchange 



ADVENTUnELANO 

Adventure International 

Cassette/24K/ M $1 4.95 

ADVENTURE COMBINATION #1 

Adventure International 

Adventureland, Pirate's Cove. Mission Impossible. 

Disl</24K/M $39,95 

ADVENTURE COMBINATION #2 

Adventure International 

Voodoo Castle. The Count. Strange Odyssey 

Disk/24K/M $39.95 

ADVENTUBE COMBINATION #3 

Fun House. Pyramid, Ghost Tov»n 

Disk/24K/M $39,95 

ADVENTURE SAMPLER 

Adventure International 

Cassette/24K/M $6,95 

AIB TRAFFIC CONTROLLER 

Sensational Software 

Cassette/16K/M $9,95 

AMBUSH 

Strategic 

Disk 48K/A ROM $69.95 

ANDROID NIM 

Ramv»are 

Disk/24K/A ROM $17.95 

APPEN I TEXT EDITOR 
Muse 

Cassette/16K/I $17.95 

APPILOT EDU'DISK 

Muse 

Disk/32K/I $4995 

APPLE 21 

Sofia pe 

Cassette/24K/I $15.95 

APPLELIS'NER 
Softape 

Cassette/16K/I $1995 

APPLETALKER 
Softape 

Cassette/ 16K/I $15.95 

ASTEROIDS IN SPACE 

Quality Software 

Disk/32K/M $19.95 

BASEBALL 

Muse 

Cassette/16K/A ROM $14.95 

BEST OF MUSE 

Disk/16K/I $39.95 

BISMARCK 

Strategic 

Disk 48K/A ROM $59.95 

BRIDGE CHALLENGER 

Personal Softv»are 

Cassette/ 16K/ M $1995 

CCA DATA BASE MANAGER 

(Works in conjunction with Visicalc) 

Personal Software 

Disk/32K/A $99.95 ♦ $2 

COMPU'READ 

Edu-ware 

Disk/48K/A $24 95 

COUNT ADVENTURE 

Adventure International 

Cassette /24K/M $14.95 

DAN'S DISK UTILITIES 

Periph. Unl. 

Disk/16K/I $39.95 

DATA FACTORY 

Micro- Lab 

Disk/48K/A $100.00 
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DATE STONES OF RYN 

Automated Simulations 

Cassette 32K/A R0M/48K/A $14.95 

Disk/48K/A ROM $19.95 

DESK TOP PLAN 

Personal Software 

Disk/32K/M $99.95 

DR. MEMORY 

Muse 

Disk/32K/I $49.95 

DUNGEON CAMPAIGN 
Synergistic 

Cassette/16K/I $14.95 

Disk/32K/I $17.50 

ELECTRIC CRAYON 

Muse 

Cassette/ 16K/M $17.95 

ENGINEERING MATH TAPE I 

Hayden 

Cassette/24K A/16K A ROM $1495 

ESCAPE 

Muse 

Cassette/ 16K/I $1295 

FASTGAMMON 

Quality Software 

Cassette/16K/M $19.95 

FORM LETTER 

Periph. Unl. 

0isk/48K/A ROM $24.95 

FORTE 

Softape 

Cassette/16K/M $19.95 

GENERAL MATH TAPE I 

Hayden 

Cassette/24K A/16K A ROM $14.95 

GHOST TOWN ADVENTURE 

Adventure International 

Cassette/24K/M $1495 

GLOBAL WAR 
Muse 

Cassette/32K/A ROM $17.95 

Disk/48K/A ROM $24.95 

HIGHER GRAPHICS 

Synergistic Software 

Disk/32K/I $24.95 

HIGHER TEXT 

Synergistic Software 

Disk/24K/M $35.00 

HIRES MYSTERY HOUSE 

On Line Systems 

Disk/48K/M $24.95 

INTERLUDE 

Cassette 16K/I $16.95 

Disk/32K/I $19.95 

INVASION OF ORION 

Automated Simulations 

Cassette/3 K/A R0M/48KA $19.95 

Disk 48K/A ROM $24.95 

MAGIC PAINT BRUSH 

MP Software 

Disk 32K/A ROM $29.95 

MAILING LIST 

Periph. Unl. 

Disk/48K/M $39.95 

MAILING LIST DATABASE 

Synergistic Software 

Disk/48K/A $34.50 

MAZE GAME 

Muse 

Cassette/16K/I $12.95 



MICBOSOFT ADVENTURE 

Microsoft 

Disk 32K/M $29.95 

MISSION IMPOSSIBLE 
ADVENTURE 
Adventure International 

Cassette/24K/M $14.95 

MODIFIABLE DATABASE 
Synergistic Software 
Disk/48K/A ROM $79.50 

MONTY PLAYS MONOPOLY 

Ritam 

Cassette/16K/M $2495 

Disk/32K/M $27.95 

MORLOC'S TOWER 
Automated Simulations 

Cassette/32K/A R0M/48K A $1495 

Disk/48K/A ROM $19.95 

MUSIC BOX 

Muse 

Cassette/ 16K/M $12.95 

MYSTERY FUN HOUSE ADVENTURE 

Adventure international 

Cassette/24K/M $14.95 

PIRATE'S COVE ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 

PORK BARREL 

Ramware 

cassette/24K/A $9.95 

PROGRAM LINE EDITOR 

Synergistic Software 

Disk/24K/M $40.00 

PYRAMID OF DOOM ADVENTURE 

Adventure International 

Cassette/24K/M S1495 

RESCUE AT RIGEL 

Automated Simulations 

Cassette/32K A R0M/48K A S19.95 

Disk 48K/A ROM $2495 

SARGON II 

Hayden 

Cassette/24K/M $29.95 

Disk/24K/M $34.95 

STARFLEET OF ORION 
Automated Simulations 

Cassette/16K/I $19.95 

Disk32K/l $24.95 

STRANGE ODYSSEY ADVENTURE 
Adventure International 

Cassette/24K/M $14.95 

SUPER INVASION 

Sensational Software 

Cassette/32K/M $19.95 

SUPER-TEXT 

Muse 

Disk/48K/A ROM $99.95 

TEMPLE OF APSHAI 

Automated Simulations 

Cassette/32K/A ROM /48K/A $24.95 

Disk 48K/A ROM $29.95 

TEXT EDITOR 

Periph Unl. 

Disk/48K/A ROM $64.95 

THE WIZARD AND THE PRINCESS 

On Line Systems 

Disk/48K/M $32.95 

THREE-D 

MP Software 

Disk/48K/A ROM $29.95 



THREE MILE ISUND 

Muse 

Oisk/48K/l $39,95 

U-ORAW I 

Muse 

Cassette/ 16K/M $17,95 

U'DRAW II 

Muse 

Disk/32K/M $39,95 

UNCLE SAM'S JIGSAW 

Muse 

Cassette/32K/A ROM $12,95 

VISICALC 

Personal Soltware 

Disk/32K/M $149,95 * $2 

VOICE 

Muse 

Disk/48K/M $39,95 

VOODOO CASTLE ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 



WILDERNESS CAMPAIGN 

Synergistic Software 

Casselte/48K/I $17 50 

Disk/48K/I $19 95 

WILDERNESS S DUNGEON 
CAMPAIGNS 
Synergistic Software 

Disk/48K/I $32 50 

WINDFALL 
Edu-Ware 

Cassette/32K/A $14 95 

Disk/32K/A $1995 

NEW PRODUCTS 
APPILOT II 
Muse 

D/48K/I S99 95 

B'1 NUCLEAR BOMBER 

Avalon Hill $15,00 

MIDWAY CAMPAIGN 

Avalon Hill $15,00 

NORTH ATLANTIC CONVOY RAIDERS 

Awalon Hill $15,00 



NUKE WAR 

Avalon Hill $15.00 

PLANET MINERS 

Avalon Hill $15,00 

THE WIZARD AND THE PRINCESS 

On-Line Systems 

D/48K/M $32.95 

BOOKS 
BASIC HANDBOOK 

bv David Lien $14,95 + $1 

GOURMET GUIDE & COOK BOOK 
Sceibi 

$12,95 ♦$! 

INTRODUCTION TO LOW 
RESOLUTIONS 

Sceibi $11,95 + $1 

LITTLE BOOK OF BASIC STYLE 

by John Nevison $5,95 + $1 

SECRET GUIDE TO COMPUTERS 

Sceibi 

$5,95 + $1 



EDUCATORS . . . ARE YOU USING 
MICROCOMPUTERS? 

A major publishing company is seeking reviewers of CAI 
software for grade levels K-12. Reviewers should have 
experience with classroom use of one or more 
microcomputing systems (TRS-80, PET, APPLE, etc.) 

Write: 
Dept. A 

900 Sylvan Ave. 
Englewood Cliffs, NJ 07632 



CASSETTE BASED MACHINE LANGUAGE 
PROGRAMMERS, REJOICE! 

Are you tired of reloading Radio Shack's Editor/Assembler and 
the source and object tapes every time you want to try out a pro- 
gram that you are debugging? If so, 

YOU CANNOT AFFORD TO BE WITHOUT 

**iispTCii ijor 

by James F. Williams 
ASPTCH loades after EDTASM and adds these functions: 



1 . Reserve area at top of memory 

2. Display number of bytes left in text buffer 

3. Dump assembled program DIRECTLY 
into that area without using a cassette 

4. Execute the dumped program 

5. Convert and display memory locations 
and their contents. 



6. Enter Level II BASIC'S Monitor mode 
{system prompt) 

7. Enter Level II BASIC'S command mode 
and use all functions that do not use 
variables 

8. Return to fully programmable BASIC, 
keeping dumped programs intact, if desired 
(for use with BASIC'S USR command, for 
example). 

Included with ASPTCH 2.0 are two utility programs: SYSTPE 
which permits you to copy any number of distinct memory areas into 
one System format tape and BREAK, which allows you to hault 
execution of a program being debugged and display flag and register 
conditions. 

ASPTCH requires TRS-80 Level II, 16K and up and is used with 
Radio Shack's Editor/Assembler 1.2 

All three programs only $19.95 with complete instruction manual 
and cassette (Instruction manual only, available for $1.25) 



ORGAN: Play your TRS-80 like an electronic organ. Video display 
shows a two manual keyboard with corresponding TRS-80 characters 
overlayed. You can play single notes or chords, change sound quality, 
select from two loudness settings. Output sound to cassette or directly 
to a small amplifier through the auxiliary jack. Instructions and 
program cassette only. $14.95 

Send your order to: Micropute Software, P.O 
Mount, North Carolina 27801. 



MICROPUTE 
SOFTWARE 

" WE DO ALOT WITH A LITTLE COMPUTER" 

HOUSEHOLD FINANCE PACKAGE: Plan and monitor your 
spending with this budget program. You can balance your checkbook, 
record and print savings information, group budget items for sub- 
totals, monitor credit accounts, investments, and tax deductions. For 
Level II, I6K cassette and up or 32K disk and up. SPECIFY DISK or 
CASSETTE version. Programs and instruction manual. $29.95 
DISK LIBRARY: A two program system that provides simple 
indexing of all your diskette programs. Individual disk libraries 
recorded on each diskette permits the access of any program by simple 
number entry as displayed on video output. The program also 
provides indexed hard copy printouts of disk program library. Editing 
feature allows for adding, deleting, or correcting library information. 
Two programs and instructions. $9.95. 

CHEMISTRY I: Laboratory workers, students and researchers can 
solve the fundamental laboratory problems that taunt you daily. 
Program solves solution mixing problems (Molarity, Normality, 
Molality), titration problems, ideal gas law, pH, temperature and 
metric conversions. Level II, I6K and up CASSETTE version $29.95, 
disk version with file storage capability $37.50. Programs come with 
complete instructions. (Chemistry II will be released in Oct. -Nov. 
1980) 

CONTRACT PROGRAMMING: Contract programming is 
available in business, science, and computer assisted instruction (CAI) 
areas. Please send inquires to the address below. Briefly describe 
needs and specifications for estimate on contract work. 



TERMS: We accept check, money order. Master Charge or Visa 
Card. North Carolina residents include 4% sales tax. Please enclose 
$1.00 shipping and handling charges on all orders. 

Box 1943, Rocky 
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HIDDEN COLORS 
continued from page 69 

78 FOR 1 = 1 TO JmHEvT I S^STICKCS J-T=STR 

IG<0) IF S=n THEN H!=H!+T^L!=L!+(T=0:';i;2 

80 IF S=7 THEM H2=H2+T L2=L2« T=« ):S 

96 H1=H1-15:«H!=I«) H2=H2-lS:JCH2=!fc) L! = 

L1-16:{:(L1=16) L2=L2-!g*(L2=l£> 

94 SETCOLOR !,HM1 SETOXOR 2.H2,L2 Ftt: 

E 656,2 FTJKE 657,3 

96 ? "SETCOLiDR 1, ";H:; ", ",L1 , " ","SETCl: 

LOR 2,";H2';",";L2;" ".; 

99 O3T0 70 

106 RESTORE CLDft=3 Y=-l ^FOF: 1=1 TO 40^R 

EftD H,E IF A<aDA THEN Y=Y+1 

110 PLOT H+U,Y+iJ^DRSilJTO B+U,Y+UOLDA-A H 

EXT I RETURN 



1060 DATA 11,17, 6,10, 18,22. 



12,16 



/ 23,25, 1,2, 7,21, 26,27, 0,0, 4,24, 28 

,28, 0,2, 7,21, 26,28, 0,5, 12,16 

1010 DATA 23,28, 0,3, 5,10, 18,23, 25,28 

, 0,3, 5,6, 10,18, 22,23, 25,28, 1,3, 5, 

6, 10,11, 17,18, 22,23, 25; 27 

1020 DATA 3,6, 10,11, 17,18, 22,25, 6,11 

, 17,22, 11,17 



Listing #2 



5 GRflPHICS S^SETCOLOR l,e.l4^SETCa.0R 2, 

a.e^DIM K32) SC=-1 

18 COLOR 1 FOR X=29.5 TO 294 STEP 2.06 P 

LOT X,e^0Rr*lTO X+9, 159 NEXT X 

26 COLOR 1 FOR X=19 TO 12 STEP -1 PLOT X 

,B^DR(*ITO X+9,159:PL0T 312-X,0 DRAMTO 32 

1-X, 159= NEXT X 

38 FOR Y=8 TO STEP -IPLOT 14,Y = DRAIJT0 



38e,Y=PL0T 21,159-YDRAMTO 306,159-Y = t€ 
XT Y=GOTO 206 
99 CaOR KOHSTORE =Aft=0 = Y=-l FOR 1=1 

TO 4e=READ ft,BaF A<AA T«N Y=Y+1 
188 PLOT A+U,y+U = DRAWTO B+ll,Y+U:AA=A t-EX 
T TRETURN 
286 POKE 752,1 
210 FOR 1=1 TO 12 = E(I)=2 = B'I+20;'=1 tCIT 

i=FOR 1=13 TO 20=ea>=0=hE:«:T i 

228 FOR C=l TO 32aF E<C»6 THEN iDaE 9 

0e = GOSlB 99 

230 NEXT C P=l C=15 

240 ^ " 

250 ' " III 

260 ? " 

270 ? " CHECKER C H A L L E N G 
E";=GOTO 330 
310 GOSUe 700 IF BcOOP T«H 310 
320 Ca=0 = FOR I4J-1 TO LN-13C:0L=l-ijTL CO 
LOR COL = PLOT I,l.i-rORAWTO I.U+ll.^EXT ! 
FR0f1=C = UU=Ua.K.i=U GOSUE 700 
330 IF C=FROM !JR e<C);>0 T*N C=FF«-1G0SU 
B 900GOSUB 99 GOTO 310 
350 IF AeS(U-UL!)>36 OR ^:F+P-2>t<.V-<^)X>^. 
8 T«N C=FR0trO3T0 330 
360 T=C = C=FR0!1 COSUB 900 C=T COL=0 FOR I 
=U+13 TO U+29=C0L=1 -COL COLOR COL PLOT I 
Ai-l^DRAWTO I,U+11 (-EXT I 

370 B(FRon:'=0=B(c;=p Gosue 900 gosus ■?■? 

P=3-P 

380 SCORE=0 FOR 1=1 TO 12 IF 6(1 /=! THEN 

SCORE=SCORE+1 
396 NEXT I FOR 1=2! TO 32' !F B( I ;'=2 T!€M 

SCORE=SCORE+1 
486 HXJ I IF SCORE=SC Th€N 310 
410 GOSUe 500 SC=SCOfE P!».E 656,0 Pl>;E S 
57,27 = X=INTCSCORE'10) Y=SC0RE-:9:i::vIF ;;= 
TtCN 430 

428 GOSUB 28e8+X = P0KE €5e,0 = POKE 657,30 
438 GOSUB 280e+YaF SC<24 Tt€N 310 
450 POKE 709,6 = FOR 1=0 TO 14 STEP 2F0R 



J=« TO 14 STEP 8.1 SETCOLOR 2,J,II'EXT J 

•f€XT IGOTO 450 

468 GOTO 468 

588 FOR 1=0 TO 2=P0KE 656- 1 POKE 657,27 

? " . ";=HEXT TRETURN 

780 GOSUB 9ee=P0KE 77,0 

710 CaOR P^GOSUB 950COLOR 3-P = 03SUe 95 

0=S=STICKC0) 

726 IF S=ll (*€ INTClC-iy4K(C-l,V4 Tf€ 

N C=C-1=REM 

738 IF S=7 AND INT<C''4KC'4 THEN C=C+1 R 

EH 

748 IF S./2=INT(S'2) *C C>4 THEN C=C-4 R 

EM 

758 IF S-1=INT((£-1)/4B4 A^0 C;29 TKI 

C=C+4 = RErt 

768 IF STRIG(0;=0 THEN RETURN 

800 GOTO 700 

899 RBI :* GET U,U FOR PLOT; C U,U 

906 U=IHTi; ( C-! V4 > = U=C-t:icU ■ U=68a'-^ti-S-35 

.*< l.i>21:INT< U.'2 > :■ U=18:Sli+! 1 RETURN 

956 FOR I='U+P-3 TO !+2 STEP 2 PLOT 1,1.^2 

:DRAWTO I,U fEXT IRETLRN REM CLRSCP CS 

AU 

1066 DATA 11,17,6,10,18,22,3,5,12,16,23, 

25, 1,2,7,21, 26, 27,0,0,4, 24,28, 29,0, 2-, 7,2 

1,26,28,0,5, 12, 16,23,28,0,3,5, 10 

1010 DATA 18,23,25,28,0,3.5,6, 10. 18-22,2 

3,25,28,1,3,5,6,10,11,17,18,22,23,25.27.. 

3,6,10,11,17,18,22,25,6,11,17,22 

1020 DATA 11,17 

2066 ^ " II ",=RETUR.N 

2861 ? " I "i RETURN 

2062 "? " "i RETURN 

2063 ' " ■', RETURM 
2004 •? " ".. RETURN 
28^ " " "; RETURM 

2006 ■? " " i = RETURN 

2007 ? " I .";:RETUR'N 

2008 " " "i = RETURN 
2069 ' " ", RETURN 
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SELECTOR III-C2 

■ Powerful 

■Creates and Maintains Multi- key data 
bases. 

■ Prints FORMATED, SORTED REPORTS witti 
numerical summaries. 

■Source code supplied 

■ Prints MAILING LABELS - and more' 
■Comes witti APPLICATIONS PROGRAMS 

including; 

■Sales Activity BExpense Register 

■ Inventory ■Checl(S Register 
■Payat)les ■Client/Patient Record 

■ Receivables ■Appointments 

■ NAD ■Library 

File management and report writing modules 
contain linkage to user subroutines to add 
virtually any special purpose application. 

STATE OF THE ART in information manage- 
ment systems' 

NEW — "Ready-to-run" version for ttie 
TRS-80® Model I, only from Business 
Microproducts. Also available tor Model II. 

Requires CP/M operating system or 
derivative and CBASIC2 

Offered on 5'A" or 8" all versions. $295.* 
CBASIC2 witti Selector Purctiase $75.* 



TRSDOS-*-CP/M 

fiLiyTRAN. 



"BRIDGES THE GAP' 




■ Macnme language COM FILE 
Oifecliy compaliDie wUh youf 
CP/M syslem 

■Aulomatefl Terminal Con 
figuralor 

■ Memory OispiayeO m Dolfi HEX 
and ASCII 



■Newly crealeo tiies scanned 

lof poteniiai errors between 

ievel II BASIC & MBASIC 5.0 

or lalef 

■CP/M lues scanneo tor any 

seleciea slrmg 
■ Searches any program tor ail 
occurences o' any slnng 
■Any Qisk Seclof Seiectea ^na ■Generates a variable cross 
displayed m poih HEX and relerence invaluable feature 

ASCII tor any system level conver 

■ Transfers botfi data and pro ^lon and debugging 

gram dies by file name byte by BDispiays bolh CP/M & 
tjyie TRSOOS Otreciories 

■Ana more 
FILETRAN Disk anfl Manual $99 

Manual alone (manual price credited to syslemi S20 



ORDER NOW 



BUSINESS 

U\!/U0®B®PRODUCTS 



A DIVISION OF THE READY CORPORATION 

LIVERMORE FINANCIAL CENTER 

1838 Catalina Court • Livermore. CA 94550 

(415) 449-4412 

VISA M/C 



^ A POWERFUL subset of ANSI-74 
^ A PRICE ttiat s UNBEATABLE-$99 

^ EXTENDED arithmetic & I/O teatures 

i^ FAST compilation and execution 

1^ EASY 10 use - Generates small executable 

object modules 
^ UNIQUE - Easily uncJerslood error 

messages 
^CP/M compatible 
^ Also available ON TRS-80 
^ REQUIRES only 16K-RAM 
^ Designed tor PORTABILITY 

STANDARD FEATURES 

■ Random access lile structure 

■ Sequeniial files — Fixed and variable lenglh 

■ Debugging capability 

■ Copy stalemeni 

■ Data types & character string, 15 Bit Binary 
and packed decimal (Comp-3) 

■ 18-Digit accuracy 

■ Hexidecimal non-numeric literals 

■ Powerful editing 

■ Interactive accept/display 



Offered on both 5'A" 
versions 



and 8" 



diskette, all 
J99* 



'CA residents add 6% sales lax Inter - 
conlinenlal shipping $3 00 Allow 2 weeks 
delivery 

TRS-80 IS a trademark of the Tandy Corp 
CP/M IS a trademark ot Digital Research 
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At HAYDEN,The Best Has Gotten Better. 

Sargon, the program that came in first in the Creative Computing 
ly^icrocomputer Chess Tournament, has become Sargon II. The game 
has been vastly improved and now has a faster response time. A new 
Level has been incorporated for beginners. The board is easier to 
pre-set and there is now a Hint mode that provides suggestions from 
the computer. Sargon II took on the maxi-computers in the West 
Coast tournament and finished in the money! Shows more thinking 
power than you ever expected in a TRS-80. 



Sargon II 16K Level II Cassette $29.95 (TRS-80) 

Sargon II 24K Cassette Machine Language $29.95 (Apple) 

Sargon II 32K Disk $34.95 (TRS-80) 

Sargon II 48K Disk Machine Language $34.95 (Apple) 



-■\ - ■ > • ■ , 



//Tl^Tr f^ 



6 SauthStreet,Box 68, Milfo(d,NH 03055 603-673-5144 




75 



DR. LIVINGSTON 




IN SEARCH OF 



• • • 



Ixisi month we presented Dr. 
Livinf^stan , /n Search of . . . , an 
S-80 program. We purposely left 
out the documentation to give you 
a chance for some true 
adventuring. If you've not yet 
rescued Dr. Livingston, then you 
.should skip this articlel 

by Ralph and Becky Fullerton 
Carl and Karen Russell 

GOAL - Return all objects to 
the bedroom (except as noted 
below). The closet must be open 
since you are actually dropping the 
objects into the closet. You can 
carry no more than five objects at 
any one time. This does not 
include the boots. 

LIVINGSTON & BOOTS - To 
survive in Africa you must be 
wearing them. When you OPEN 
the closet and GET the BOOTS, 
Dr. Livingston is created in one of 
the three possible locations. 371/2% 
of the time he will be in the PIT 
(location 35, see map). The rest of 
the time he will be either just off 
from the quicksand (25% or in the 
marshes (27%). To GET Dr. 
LIVINGSTON, first say "GET 
LIVINGSTON". The computer 
responds "Dr. Livingston?". You 
must then say "I PRESUME" He 
is then an object that you are 
carrying. 

You may have tried to return 
Dr. Livingston to the bedroom by 
way of the cave password. It won't 
work. You and your other objects 
make it, but Livingston is 
randomly placed in a location 
numbered above 2. You must find 
him again and return him to the 
bedroom by way of the boat. 

BEDROOM EXITS - There are 
two ways out of the bedroom. 
Clues to the first way can be found 
by reading the PASSAGE located 
in the BOOK.. GET BOOK, OPEN 
BOOK, READ PASSAGE (being 
sure you are in bed). What you see 
is a segment of a sentence, the first 
and last words cut in two. The key 
word here is the last full word: 
DRIFT. You must be in bed with 
the book for it to work. The 
BOOK always stays in the 
bedroom. See SWAMI below. 

KNAPSACK, MOUSE, 
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LEOPARD - You need the 
KNAPSACK to GET the 
MOUSE. FREE The MOUSE at 9 
or 10 to scare away the 
LEOPARD. 

SWAN^I - This is the second 
password connecting the bedroom 
(1) and the Mouth of the Cave 
(10). The clues for this are several. 
The NOTE in the Hut (18) says 
SWAMI DIAMOND. A voice 
heard in the Cavern (12) comes 
from the MOUTH OF THE 
CAVE, where the DIAMOND is 
located. The DIAMOND is not 
located at 14, another MOUTH 
OF THE CAVE. It is there to 
confuse you. Put the clues together 
and you get SWAMI, a secret 
word to move from 1 to 10 and 
back. 

MOVEMENT - Several 
locations use RND(X) to allow 
movement in certain directions. 
You have one chance in four to get 
out of location 12 using any 
direction. There is a 50% chance of 
movement from 6 going N, or W. 
Until the Leopard is gone you can't 
connect 9 and 10. Going E from 22 
gets you equally either to 21 or 19. 
N is the only exit from the marsh 
(371/2% chance). Notice that N is 
the only direction that responds 
with "You can't go that way.", or 
similar response. Just a slight clue. 
37'/%) of the time you can go N or 
E and get to 20 from 25. The only 
way to connect 23 and 24 is to 
"JUMP QUICKSAND" and then 
respond "YES" to the next prompt; 
"Do you really expect . . . ". To 
get into the Ujiji Village, you must 
come from 32, a 40%/ chance. 

DEATH - Death results from 
several situations. If you DRIFT 
or SWAMI barefooted, you die. 
That's the end of the game. This 
can happen only on your first exit 
from the bedroom that game. To 
have survived a previous exit you 
had to be wearing the boots. The 
boots are on for good. 

Spending too much time with a 
wild DOG, vicious VIPER, 
ALLIGATOR, or hostile villagers 
results in death. The villagers are 
only hostile if you are carrying a 
spear. A 'timed' death always 
recovers the first time and half the 
time thereafter (50%^ chance). On 



death you are relocated into the 
boat (2), while any objects you 
were carrying are randomly 
distributed to locations numbered 
above 3. 

TRADING of goods takes place 
at two places: the first village (17) 
and the trading post (29). BEANS 
are traded at the village (TRADE 
BEANS), and are then replaced by 
the RING. You trade 
GROUNDNUTS at 29, but 
remember to GET CHAIN. 

ALLIGATOR - It is killed by 
the SPEAR or DAGGER 
(sometimes) but there are other 
alligators nearby. So if you leave 
the Marsh and return later, 
another ALLIGATOR is there to 
greet you. 

SUGAR CANE, WILD DOG, 
VICIOUS VIPER, SAPPHIRE - 
Holding the CANE for a total of 
17 turns changes it into a flute 
(you used your penknife). This is 
all you need to CHARM the 
VIPER. GET VIPER and FREE it 
to attack the DOG (22). They both 
end up in the quicksand, but the 
scuffle uncovers a SAPPHIRE in 
the grass. If you have not found 
the VIPER, it is in the tree (7) just 
off the trail (6). 

****** - Don't forget the NOTE and 
the CORN. Everything not traded or 
given up for something better is 
needed to attain that 215 point goal. 
When it is reached, then the number 
of turns you took determines how 
many bonus points you get. 

EXTRAS EXTRAS 
You can CHARM the VIPER 
with the CANE before the CANE 
becomes a FLUTE. Carrying the 
SPEAR you can make it into the 
village (17), trade the BEANS, 
enter the hut, get the NOTE, and 
get out of the village before you 
die, but don't linger. 

VARIABLES 
Strings are A-G Integers are H-Z 
Y - You: where you are, your 
location, your 'room #'. Used by P( 
) & PS( ) mainly. 
F'$(#) - A description of your 
location; # being that location's 
'room #'. 

P(#,X) - Possible directions 
(actually equal to the possible 
room #) you can take from room 



#. X+0-5 and respectively 

represents N, S, E, W, U, D. EX: 

If you are in room 5 and say "GO 

EAST" then the program will 

check the value of P(5,2) and act 

from there. See MOVEMENT 

CHART. 

PM - Total number of locations 

(rooms). 

A - General input by player to a 

prompt. 

RS - 'TIS DONE: the general 

"O.K." response. 

I and J - Temporary counters used 

throughout. 

VM - Total number of verbs; (VM 

means Verb Ma.\, the maximum 

number of verbs). 

NM - Total number of nouns. 

IM - Total number of items 

(objects). 

VS(#) - Ihe actual verb. 

V - The number of a particular 

verb (from the verb list). 

N$(#) - The actual noun. 

N - The number of a particular 

noun (from the noun list). 

!$(#) - Item description. 

!L(#) - Item location, at any given 

time. 

1P(#) - item point value (when 

returned to room #1). 

1N(#) - The number of the 

particular noun that corresponds to 

object #, 

Some temporary values: B, C, D, 

G, GN„ GV. Z, Zl, and others 

(used mainly in response 

evaluations). 

V5+() - Vicious Viper. 

V5+1 - Lethargic Viper. 

X+O - Knapsack closed. 

X+l - Knapsack open. 

K+0 - Closet closed. 

K+l - Closet open . 

T - Turn counter; number of turns 

taken at present. 

XI and X2 used in 'Wild Animal' 

routine. 

X7 - Code used to see if you are in 

the village for the first time or not 

XF+0 - Chain unobtainable. 

XF+I - Chain obtainable. 

XD - The number of times you 

remain in a danger area (like the 

number of times in a hositlc 

village). 

XG+I - Beans exist. 

XG+0 - Ring exists. 

XE+0 - Boots off. 

XE+I - Boots on. 

N4+0 - Cane exists. 

N4+I - Flute exists. 

N5 - The number of turns you 



have had the Sugar Cane. 

S - Score. 

ST - Temporary Score. 

MI - Total number of items 

presently in your possession. 

XC+0 - Book closed. 

XC+I - Book open. 

XB+0 - Not in bed. 

XB+I - In bed. 

Gl - "You already have it." 

02 - "You're on your own." 

G3 - "Don't be silly." 

G4 - "That's too dangerous." 

G5 - "It's nowhere in sight." 

G6 - "You don't have it." 

G7 - "Nothing unusual. 

08 - "With your puny spear?" 

G9 - "You had better leave fast." 

GA - " Neither are seen again." 

GB - "The native takes your" 

GC - "You are lying in a warm soft 

bed." 

GD - "You are at the closet." 

GE - "Several natives wave hello!" 

Negative numbers and 98 
represent special random 
movement sections or other special 
conditions. 

MOVEMENT 
Room 
No. N S E W U D 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

II 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 






5 
3 
-5 

6 




-11 
11 



15 
16 
17 
16 

21 
21 
98 
24 
-20 
20 
-26 


28 
30 
31 

34 






5 
6 

8 

15 




-11 



19 
18 

22 
26 
23 
22 
22 
98 
25 
27 
27 
30 

26 
32 


34 





3 
4 
4 
6 
-4 

9 

11 
12 
-11 
14 

16 
17 



20 

26 

22 

-1 

98 

25 

-20 

30 

27 

29 





33 

98 



34 







2 
3 
4 
-5 


8 

10 
-11 
15 
13 
8 
19 


21 
19 
21 
23 
21 
98 
24 
20 
27 

28 
31 
31 
31 
31 
32 
13 








7 
7 

98 



-11 








21 
22 
23 
24 
25 

27 
14 






34 









6 


98 
13 
-11 

28 






21 
22 
23 
24 
25 

27 
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Example: Going South from 
room 16 puts you in room 19. A 
means you cannot go that 
direction. So from room 16 you 
are unable to go Up or Down. 

LANGUAGE 
VERB # - V ACTUAL VERB 
V$(#) 

1 GET 

2 DROP 

3 I 

4 OPEN 

5 CLOSE 

6 DRIFT 

7 SWAMI 

8 LOOK 

9 THROW 

10 HINT 

11 READ 

12 GO 

13 INVEN (TORY) 

14 TRADE 

15 KILL 

16 FREE 

17 CHARM 

18 JUMP 

19 SCORE 

20 ROW 

21 ENTER 

22 CATCH 

23 EXIT 

24 CLIMB 

25 EAT 

26 FEED 

27 QUIT 



NOUN # - N 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



ACTUAL NOUN 

N$(#) 

N 

S 

E 

zw 

U 

D 

NORTH 

SOUTH 

EAST 

WEST 

UP 

DOWN 

KNAPS (ACK) 

SPEAR 

FLUTE 

VIPER 

TREE 

MOUSE 

SIGN 

BOOK 

BOAT 

CLOSE (T) 

BED 

BOOTS 

PASSA (GE) 

RING 

LEOPA (RD) 

DIAMO (ND) 

VILLA (GE) 

TRINK (ETS) 
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31 


CANE 


m 


CORN 


ONLY THE FIRST FIVE LET 


32 


DOG 


40 


GROUN (DNUTS) 


TERS OF ANY WORD ARE US 


33 


ALLIG (ATOR) 


41 


PIT 


ED . 


34 


SQUIR (REL) 


42 


BEANS 




35 


DAGGE (R) 


43 


QUICK (SAND) 


The verbs are used as program 


36 


NOTE 


44 


NATIV (E) 


keys, line 16(X) being the pivot 


37 


CHAIN 


45 


SAPPH (IRE) 


point. 


38 


LIVIN (GSTON) 


46 


HUT 





ITEM# 



1 

2 

3 

4 

5 

6 

7 

Changes to: 

8 

Changes to: 

9 

10 

Changes to: 

11 

12 

13 

Changes to: 

14 

15 

Changes to: 

16 



ITEM DESCRIPTION 



OBJECTS 
I$(#) LOCATION 



(IL(#) 



A TIMEWORN BOOK 

A FADED RED KNAPSACK 

EARS OF CORN 

A BATCH OF GROUNDNUTS 

A TINY GREY MOUSE 

A POISON-TIPPED SPEAR 

A PAIR OF HIKING BOOTS 

DR. LIVINGSTON 

A VICIOUS VIPER 

A LETHARGIC VIPER 

A SPARKLING DIAMOND 

A SACK OF COFFEE BEANS 

A GOLDEN NOSE RING 

A CRUMPLED NOTE 

A SOLID SILVER CHAIN 

STALKS OF SUGAR CANE 

A CHARMING LITTLE FLUTE 

A HUNGRY ALLIGATOR 

A WILD DOG 

A DEEP BLUE SAPPHIRE 

A PEARL-HANDLED DAGGER 



1 

1 

30 

33 

2 



1 

Random: 25,27,35 

7 

7 

10 

15 

-1 

18 

29 

24 

-1 

27 

22 

22 

12 



SCORE IP(#) 


NOUN 




COMP. 




IN(#) 





20 


2 


13 


5 


39 


5 


40 


7 


18 


3 


14 


50 


24 


50 


38 





16 





16 


15 


28 


12 


42 


12 


26 


3 


36 


15 


37 


15 


31 


15 


15 





33 


10 


32 


10 


45 


10 


35 




S. U, 0( /ouicksandT 



© 



78 




u-:9]i\ii\ 




INT(X^Nx1In(X"2),X) 



Surprised? You 
should be. Because 
until now, no software 
could solve anything 
but the nnost basic 
arithmetic problems 
without a series of 
complicated steps. 

A big disadvantage? 
If you use a 
microcomputer for 
scientific, educational, 
or engineering 
applications, you bet 
it is. That's why 
Microsoft has come 
up with a solution of 
its own. muMATH. 

muMATH is a 
symbolic math 
package you'll 
recognize immediately 
as a major advance in 
microcomputer 
software. 

muMATH lets you 
efficiently and 
accurately perform the 
most complex 
mathematical 
operations: Exact, 
infinite precision 
rational arithmetic. 
Unbound variables. 
Complex expressions 
(even equations may 
be included). Exact 
solution of algebraic 
equation. Plus 
logarithmic, 
exponential and 
trigonometric 




».>-«iiitajr«]f 




simplifications and 
transformations. 

That's right. It does 
in an instant what 
took you years to 
learn at school. 
Rational arithmetic. 
Algebra. 
Trigonometry. 
Transcendental 
functions. Symbolic 
differentiations 
(including ordinary 
and partial 

derivatives.) Symbolic 
Integration of 
Indefinite and definite 
integrals. Matrix 
arithmetic and 
algebra. 



Trigonometric 
simplifications? But of 
course. Just type: 
?SIN(2*Y) * 
(4*COS(X) 3 - 
C0S(3*X)=SIN(Y) * 
COS(X=Y=#P1) - 
COS(X-Y); Then 
instantly muMATH 
returns: 

@4*SIN(Y)*COS(X) * 
COS(Y). 

Adding fractions? 
Need you ask? 

?1/3=5/6=2/5=3/7; 
@419/210. 

muMATH is written 
in muSIMP, which is 
included in the 



The SoHw^Bte Exchange 

ORDER TOLL-FREE: (in NH call 673-5144) 

1-800-258-1790 

CP/M is a registered trademark ot Digital Research. 



muMATH package. 
muSIMP is an 
applicative, recursive 
langauge, ideal for 
describing complex 
mathematical 
concepts. 

Because of its 
highly interactive 
nature and 

hierarchical structure, 
muMATH is an 
excellent math 
teaching device, from 
simple arithmetic to 
calculus. 
^ muMATH is 
currently available for 
the CP/M® operating 
system. 

The complete system, 
including muMATH and 
muSIMP on disk and 
documentation is $250. 
Runs under CP/M. 

Just what you need? 
We thought so. Shoot 
some questions at us 
about muMATH. We 
have all the answers. 

Also new from 
Microsoft; the muLISP 
interpreter for CP/M. An 
efficient and reliable 
LISP system fully 
capable of supporting 
serious artificial 
intelligence efforts. 
$200. (Non CP/M version 
is availrble for the 
TRS-80 for $74.95 plus 
$3.00 shipping and 
handling.) 



^ PLEASE NOTE: 

The CPM version of 
muMATH is not available 
from The Software Exchange. 



COMPl'TER GRAPHICS 

continued from page 61 




2020 RETURN 

3C00 REM COMPUTE THE CENTER POI 
NTS 

3010 xs = 28c:ys == i92:xL = o:yl = 

n 


u 
3020 FOF; J = 1 TO NPT£ 
3030 IF X(J) < XS THEN XS 


= X(J) 


30^0 IF X(J) > XL THEN XL 


= X(J) 


3050 IF Y(J) < YS THEN YS 


= Y(J) 


3060 IF Y(J) > YL THEN YL 


= Y(J) 


3070 NEXT J 

3080 XC = (XS + XL) / 2:YC 

YL) / 2 
3090 RETURN 
] 


= (YS + 



BUGS, WORMS, AND OTHER 
UNDESIRABLES 
by Kay Pasa 

In "Encounter in the Near 
Tholian Sector", ( SoftSide S-80 
May, 1980) there should be an 
additional statement added to the 
end of line 40: 

The corrected statement must be 
executed AFTER GOSUB 650 
because the subroutine resets 
variable B. 

Also, if it seems as though the 
program doesn't work, make sure 
you have typed it in EXACTLY as 
it appears, including the commas 
used for THEN statements and the 
spaces. It will make a difference. 

Joe Sewell 

In the July SoftSide S-80, page 
24 was very difficult to read. If the 
Pinball program doesn't work 
properly, it may be due to some 
smeared characters on this page. 
We will be glad to send a clear 
copy of the offending page to those 
requesting it. Send your request to: 

Kay Pasa 
c/ o SoftSiae 
6 South Street 
Milford, NH 03055 

In that same issue the line 
printer hiccupped at line 2901 of 
ADVENTURE INTERPRETER 
(page 47). The line should read 
simply: 2901' with the apostrophe 
being the abbreviation for ":REM" 
80 



In the August Prog-80 the listing 
of SPLAT! mysteriously vanished. 
Whie SPLAT! runs VERY slowly 
in BASIC, you may have a copy of 
the listing by sending your request 
to 

KAY PASA 
c/o SoftSide 
6 South Street 
Milford, NH 03055 
In the Apple Concentration 
program in the August SoftSide, 
page 75, line 1510 should read: 
1510 IF PEEK (-16287+P) =127 
THEN 1540 

The 1540 somehow disappeared 
from our magazine. 

-Kay 

In the September issue part of line 

100 of "Dr Livingston" is illegible. 

The offending portion should read: 

PM = 35:VM = 27 

Oooops! In the article "You can 
have SOUND on your computer" 
in the August, 1980 issue of 
SoftSide , 1 neglected to mention 
that the MEMORY SIZE? 
question should be answered with 
32511 before the S-80 version of 
the program is typed in and run. 
For those of you working from 
NEWDOS, enter Basic by typing 
'BASIC 32511' which is equivalent 
to answering this question, the 
cbmputer will sometimes lock up 
and refuse to respond to any user 
prompting. I apologize for any 
inconvenience this may have 
caused anyone. 

Richard Bouchard Jr. 

APPLE PROGRAMMING HINT 

Here's a free way to protect 
yourself from accidentally hitting 
reset! First, take the RESET key 
off vour Apple. The best way to do 
this' is to hold down RETURN, 
take a butter knife and slowly pry 
the key off. Now remove the cover 
of the Apple. Next, under the lip 
of the key switch, wrap a medium- 
sized rubber band around a few 
times. Then take the loose end of 
the rubber band and stick it 
through the vents on the baseboard 
directly below the RESET key. 
Take a short pencil or a toothpick 
and slip it through the rubber band 
so that the rubber band snaps back 
and holds the pencil to the bottom 
of the Apple. You now have a 
RESET key that won't do a reset 
unless you really press it hard. 

NOTE: This procedure may void 
your Apple's warranty. 

Rich Crisafulli 
E. Dennis, Mass. 




SPECIAL 
DELIVERY 

with 

EXTRACT 

A 100% Machine Lingu^ge Word Processor from: 



a 



Quality Software 



Wr cdn't sfop improving and expanding the 

capabilities of vour TRS—80' 8v using SPiCIAL 

OaiVlRY with EXTRACT and either tiecinc Pencil* 

or Radio Shaik\ Scnpsil' you can get even more 

out of vour (omputer From fwtt one package you 

will get all this 



MAILFORM 

Create MAILflLE The ONLY complete name and 

dddress hst entry/editor program wntien in 

machrne language. 



MAILRITE 

Print letters written wilh either the Electric Pencil" 

or Radio Shack's Scnpsit' inserting information 

from d MAIIFILE into the letter for personalizing 

and dddressrng. 



EXTRACT 

Take out iniormation from the MAILFORM. the 

machine language mailing list. Find the names you 

need by Zip Code, Street Address, Gender. Age or 

any other way! 



SORT 

In-Memory sort on an entire address list using any 
field as the key. 



LABEL 

Prints labels from MAILFILE 



CONVERT 

Make MAILFILE from RS mail list. 



SPICIAL DCLIVERY will run on your TRS-SO' wilh 
TRSDOS'. NfWDOS" Of any other TRS' - like 
DOS 

$125.00 



The 
Sahwi/are Exchange 

6 South Street, Milford. NH 030SS 
ORDER TOLL-fREE: (In NH call 673-51441 

1-800-258-1790 €1 



muMATH 




muMATH -an S-80 review by 
. James Garon 

Inside tiie 6" x 8" x ]'A" box is a 
binder containing two diskettes and 
a 76-page instruction booklet. One 
diskette is for S-80 s with 32K of 
memory, the other - with several 
additional features - is for 48K 
systems. "muMATH is ideally 
suited for interactive, practical use 
by engineers, scientists and 
mathematicians," the booklet 
states. It goes on to say, "It is also 
an excellent self-teaching tool for 
students interested in the standard 
mathematics curriculum from 
elementary arithmetic through 
calculus." 

One of the first things you are 
asked to do as you read the 
instruction booklet is to make a 
backup copy of the muMATH 
diskette. Step 5 of this process 
directs you to type "BACKUP" 
from DOS (muMATH is supplied 
on TRSDOS). However, the 
BACKUP utilitv was missing from 
the 48K muMATH diskette. This 
was just a minor annoyance to me, 
since 1 was able to use the 
BACKUP from the 32K diskette to 
make a copy of the 48K version; 
but the omission might prove 
traumatic to those unfamiliar with 
the ways of DOS. 

I had been intrigued by the 
muMATH ads that claimed 61 1- 
digit accuracy for arithmetic 
results, so I began with some 
factorial experiments. In response 
to muMATH's prompt (a question 
mark), the user simply types in the 
problem followed by a semicolon 
(;) and then presses ENTER. I 
typed, "50!;" and in just over a 
second the computer printed out 
the complete 66 digit answer. 296 
factorial proved to be the largest 
that muMAl H could handle. This 
one took about 48 seconds to 
compute and print the answer - all 
617 (!) digits. 

muMATH works with rational 
expressions exclusively. This means 
that decimals such as 1.23 are 
unacceptable as input and will 
never occur as output. This is great 
for working with fractions; asking 
muMATH to add 5/ 10 + 1/3 yields 
the answer 5, 6. 



Most impressive was the 
expansion by muMATH of the 
binomial (A+B)'' into the 6 correct 
terms in about 1 I seconds. It took 
quite a bit longer, but muMATH 
handled (A+B+C+D)-* with equal 
ease. 

muMATH allows you to define 
equations, manipulate each side, 
evaluate expressions for various 
values of the variable(s), combine 
like terms, expand, factor, and 
simplify (by combining like terms, 
for example). It will find Greatest 
Common Divisors and Least 
Common Multiples of any two 
integers. 

I found it fascinating that 
muMATH allows you to work in 
35 different number bases - not just 
the standard binary, octal, decimal 
and hex, but any base from 2 
through 36 inclusive! In base 36, 
the digits through 9 are used as 
well as all 26 letters of the 
alphabet. On page 25 of the 
instruction booklet there is a cute 
example that is unfortunately 
marred by a tvpo: the decimal 
number 13881684805, when 
expressed in base 36 is supposed to 
equal the "number" MUMATH. It 
doesn't. After a few head- 
scratching, figure-scribbling 
moments, I discovered the 
problem. The correct decimal 
number with which to begin does 
not have a double eight: 
1381684805. Does even mighty 
Microsoft suffer from 
kkeybounce?! 

muMATH handles with ease just 
about every algebraic problem one 
is likely to encounter, and does so 
with enormous flexibility. You tell 
muMATH whether to factor or to 
expand. You may factor only in 
the numerators of expressions, 
only in the denominators, both, or 
neither. 

With either the 32 K or48K 
version of muMATH, you can 
process problems involving 
logarithmic and trigonometric 
operations (simplification or 
expansion). With the 48 K version 
you can proceed into the realm of 
calculus in which muMATH 
handles integration as well as 
ordinary and partial differentiation 



with ease. For instance, to 

differentiate 

AX2 with respect to X, simply 

type: 

DIP (A*X 2, X); and the answer 

appears: 

2*X*A 

Higher order partial derivatives 
can be found by "nesting" the 
appropriate DIFs: 
DIF(DIF(SIN(X*Y),X),Y); yields: 
-X*Y*SIN(X*Y)+COS(X*Y). 

Integration is just as easy: To 
find the indefinite integral of 2X- 
I/X with respect to X, type: 
INT(2*X-1/X,X) and in a few 
seconds muMATH responds with 
X 2 - LN(X) (The constant of 
integration is suppressed). 

Chapter 5 of the instruction 
booklet contains a brief 
introduction to programming in 
muSlMP (microcomputer 
Structured IMPlementation 
language), the langugage in which 
muMATH is written. This 
introduction should be enough to 
allow most users to program their 
own functions. These may be 
stored on disk and later read in to 
enhance the basic muMATH 
package. 

Examples are provided which 
range from simulating BASIC 
commands such as FOR NEXT 
and IF/THEN ELSE, through 
graphics (!) to teaching muMATH 
to calculate Taylor series 
polynomials to any desired degree 
(a short 13-line program!). For a 
more detailed treatment of 
muSIMP, the user is referred to 
the muSIMP/ muMATH Reference 
Manual which is available from 
Microsoft (no price given). This 
manual includes some additional 
capabilities such as matrix algebra, 
further integration power and a 
trace utility. 

muMATH even supports a 
lineprinter. Altogether, the 
mulVIATH/ muSIMP package is 
quite amazing - the more math you 
know, the more you'll appreciate 
muMATH. While anyone can sit 
down and use it immediately, it is 
a package you can grow with, no 
matter how sophisticated your ^^ 
mathematical abilities and needs. 1^ 
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Imhotep 

continued from page 21 

IMHOTEP S-80 VERSION 

Lines 10-20: Title 3f>d copyright 
10 'I MCTEP - PYRAMID HJILDER i VERSION 2.5 i 
20 '» COPYRISfT (C) 1980 TERRY CLARK COLUMBUS, IN i 

Lines 30H0J Clear space for strings and then build sone 
graphic strings for the border design. In line 10, go 
to the graphics routine, where the introductory picture 
is drawn. 
30 CLEAR2000:E$=CHR$(181)+CHR*(189)+CHR«(1'M);G*=E»+E$+E»;E»=G»+ 
G»+G$+C«»(130)+Ctfi*(139)+CHR$(175)+CH»(156)+C«»(179)+CH»(172 
)+CHR$(159)+CHR«(135)+CH»(129)+G»+G»+G$ 
')0 GOSUei210 

Lines 60-110; Clear screen and PRINT the introductory page. 

50,READe«:P=300000JD=2500:S=330:T=0:W=0:ER=0:N=0;M="IMHOTEP":R 
ANDOM 

40 CLs:PRiNTei2,"imoTEP ";g*;g$;" pyramid builder" :PRiNTe960 
,g$;g$;g$;c$;c$;g$;c$; 

70 PRM887,"BY TERRY CLARK ":PRINTE»;: PRINT 

80 PRINT"++++ A DECREE FROM ZOSER, THE GOLDEN HORUS, BULL OF KHE 

M. ++++" 

90 PRINT;PRINT"T0 IMHOTEP, MASTER MASON.*" 

100 PRINT"IM)TEP, THE PmROAH HAS COMWNDED A PYRAMID TO BE BUI 

LT." 

110 print"the horus desires this glory to his name to" 

120 print"et finistcd whhin a period of twelve years." 

130 print"your overseer -is "jb*;", f€ is to obey your com^wos." 

:print:print 

110 DftJT"(PRESS ENTER TO C0NTIN1£)";A» 

line 150.* junp to the pyrawid drawing routine. 

150 GOSUB690 

Lines 160-250; A report on the current state of affairs 
is PRINTed under the scene of the worksite. 

160 PRINTe576,"(CRE IS THE HORK-SHE <«TIR" IT) "YEARS OF HORK." 

170 PRDfflM*;", THE POPULAHON OF KHEMI IS";p;"." 

180 PRINT"FWROAH 0W6";s; "STOREHOUSES OF (MEN."; PRINT" THE NIL 

E aOODED";D;"TELS OF LAND." 

190 PRINTe832,CHR*(31)"FR0M THE";P;"PEOPt£ YOU COMfWO IN IQSER' 

S NAfC," 

ZOO i»ffn;T"HO« nm people do you wish on your work force";h 

210 F(W>P)»?(W<0)THEN780 

ZZO PRINTe832,Crt»(31)"FR0M THE TOT^ 0F";S;"ST0REHOU^S 0»€D B 

y the son of ra." 

230 bffut"how many hill you devote to feeding ttc mork-force."}! 

210 f(ds)or(i<0)then810 

250 p=p-h;s=s-i 

Lines 260 to 310 ; The desired actions are INPUT and checked 
for legality. 

260 ' X IW>UTS I 

270 PRINT(?832,Ctt»(31)"FR(»1 THE REMAINING";s;"STOREHGUSES,HOH fW 

NY TO FEED 

THE";p; 

280 INFUT"PEOF'L£";j 

290 F(J>S)OR(J<0)THEN820 

300 S=S-J 

310 PRINT(?832,CHR»(31)"FR0M";d;"TELS HOW MANY DO YOU WISH TO FIA 

NT";:iNFUTE; 

320 IF(E:>D)OR(B<0)TH£N810 

330 IFB>SilOOTHEN870 

310 FE^'F'xlOTHEfffiSO 
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Line 350 ; Screen is cleared and borders are F'RINTed. 

350 CLS:F'RINTI?960,Ei;;F'RINTeO,E»;H=0 

Line 36Q; The storehouses alloted to the workforce are Lised 
to deternine the rnmber of people fed, at the ratio of 
ore storehouse to lOOO people. If fed too huch, the 
rwMber fed is the sane as the total rwnber of workers. 

360 M=I»;1000!IF(M-W);>OTHENM=W 

Lines 370-380; The sawe is done for the renainder of the 
popijlatioTi, "k" is iised to deterwine how nam people 
will Move here, based ori the quality of the chow in 
Egypt. 

370 L=j»iooo :r=l-p:ifr<othenr=o 

380 F:=F;+RND(1000) 

Line 390! If you starve too Marry people, Zoser will get yw. 

390 IFP-L>Pii'.15THEN900 

Lines 100-1901 Various randoM eleMents are deterMiried here. 
The harvest and the ni-wber of storehouses gaired, the 
chance of war, plague am other catastrophic everits are 
decided and the progran jinps to the appropriate sub- 
routines. Ti«e IS advanced in lire 170. 

100 U=RND(10):IFU<1THEN1050ELSEIF(M-W)<OTHENPRINT"YOU t^VE STARV 

ED" ; W-M ; "WORKEFS . " : ER=£R+2 : GOTOl 050 

110 Z=RND(50);iF(Z<9)AND(N>1)THEN1130 

120 f;=RND(3.5):S=S-(E/100) 

130 FN>T»;2THENER'=ER-1 

110 IFER>=CTHENO=INT(((S»(RND(0))+(ER>:1))/2));IFCK2THENS=S-0 

150 IFEF:<0THENQ=INT( (S)i:(RNO(0) )/10) ) :S=S+0 

^60 IFS<OTHENS=0 

170 S-S+((E:)«K)/10):T=T+1 

1B0 D=M(F*JD(10)il00+(O)i(.5)):Q=Rf«)(30);iFQ<8THEN920ELSEFQ>22TH 

EN«50ELSEIF(Q>12)AND{Q-(18)THEN1010 

I'O HA=RND(300) :iFHA<19THENGOSUEi910ELSEIFHA>282THENG[BUB1010aS£ 

IF(WA-:;2!0)AND(WA>165)THENGOSUE:960ELSEIF(WA>75)AM)(WA<130)THENGOS 

UE:lOZOELSEIF(WA>255)AiNO(HA<260)THENGOSUB1030 

Lines 500-660; The report on the year's progress is dis- 
played, along with a stateMent on the nood of Pharoah 
if needed. 

500 ' I DISPLAY X 

510 FraNT'^THE HARVEST THIS YEAR WAS" JK/IO; "STOREHOUSES E'ER TEL." 

520 IFER;'=0THEN530ELSEIF(ER<fl)AND(O>l)THENF'RINT"THE PRIESTS OF A 

MEN GAlt ZOSER, ";o; "STOREHOUSES OF GRAIN. ";H=H+1:GOT0510 

530 IFO<2THENGOT0510ELSEIFER:>=OTHENPRINTO; "STOREHOUSES OF GRAIN 

UERE CLAIMED BY THE PRIESTS OF AMEN.":H=H+1 

510 PRINT"THE POPULATION INCREASED BY";R;"FE0F1E." 

550 F-(L-(L-P))+M+R 

560 N=INT(N+(W-(W-«))/90000) 

570 IFN>23THENN=23 

580 IF(N<23)AM)(N.>0)Tf£NF'RINT"THE WORK FORCE HAS C0MFI£TED";N;"C 

OURSES OF THE PYRAMID." 

590 IF(N<23)AND{D<1000)AND(H<6)THENF'RINT"Tft VIZIERS PREDICT A P 

DOR FLOOD NEXT YEAR'.";H=H+i:aSEIF(N<23)AND(D>3700)AND(H<6)TfCNP 

RINT"THE MELHNG SNOW OF ETHIOP SHELLS THE NILE THIS SPRING. ";H= 

H+1 

600 IF(N<12)AfC(I;6)0R(ER>3)AND(Na3)THENF'RINT"F'HAR0AH IS BOTHER 

ED BY YOUR' INEFFICIENCY. ":H=H+1 

610 FER>7THENPRINT"HE HAS DECREED, THAT FOR YOUR' MISTAKES, YOU 

WILL BE EXILffi TO THE RED LAND OF THE EAST.";GOT0660 

620 IFH(1THENPRINTIM$;", an UNE^CNTFU. YEAR. ";ELSEIF(H:--1) AND (H(7 

)thenprintim$;", a very eventful year." 



630 IFT>=12THEN8?0ELSEINF'UT" (PRESS ENTER TO C0NTINUE)";A» 

610 IFT=4Th€NGOSUE;1330 

650 S=FIX(S) ;D=FIX(D) .'F-FTXCP) ;GOT0150 

660 F'RINTI?912,"IMH0TEP WILL YOU TRY AGAIN?") ;FORZZ=0TO3000:Vt=IN 

KEYJ:iFV$="Y"THEN50ELSEIFi;$="N"THENGOSUE:l300ELSEh£XT:GOSU£.1300 

Line 6701 EM) of the prograw. 

670 END 

Lines 680-7601 This SLibroijtine is used first to reinitialize 
the length of the coLTses, then to clear the screerii 
dr3w the horiiofi, put in sone pain trees (?) arid theri 
draw the pyr3Mid» course by course. 

680 ' X PYRAMID i 

690 E=16:F=105 

700 CLS 

710 PRINT0512,STRING$(61,176);!Ft)KE15868,136:POfe5869,18i:POKEl 

5870,15Z:POKE15932,178;P(]KE15933,186:FgKE15931,178:POKE15873,191 

:Ft)KE15809,19i:F1KE15715,19i;POKE15681,191!POKE15616,15i:Ftt<E156 

17,191:P(>;E15618,139:F-OKE15619,H9:POKE15552,171 

720 POKE15553,19i:POt(E15551,189!POKE15555,ltO:F'OKE15556,16i:POKE 

15'»88, 173;P0KE15489, H'!;F€KE15190 , 176:P0KE15191 , 132 

730 IFN=OTHENF:ETl)R'N 

710 y=25:forg=iton:forx=etofstef'1.ii:set(x,y) :next:e=e+2:f=f-2:y 

=Y-1!ND(T 

7S0 IFN=23THEN970 

760 return 

Lines 770-11601 Here are the punishwents for sour errors, 
which are kept track of in the variable "ER". "H" is 
used here to keep the screen fro« being filled to the 
point of over-scrolling. 

770 ' X PUNISHMENT « 

780 PFINTI?576,CHR$(31)IM$;", ZOSER ^£ARD YOUR FOOLISfMSS. HE HA 

s EXILED ";b$;".";er=er+i 

790 O^€RRORGOTO1190 

800 READWIPRINTB*;" HAS BEEN ASSIGNED AS OVERSEER. N0H...";G0T0 

200 

810 PRINTgy6,CHR$(31)im;", DO NOT JEST, TfC HAJK'S E/«<S ARE SH 

arp.":er=er+i:goto220 

820 PRINT0576,CHR$(31)D«;", I, ",*B$;", WiW YOU N0T";ER=ER+1 

830 P'RINT-'TO mock PHAROAH ZOSER. HIS FLAIL IS SHIFT. ";GOT0270 

810 PRINT(?576,CHR'$(31)IM$;", PfWROAH HAS KILLED "SB*;", YOUR OVE 

RSEER."!ER=ER+1 

850 ONERRORGOT01190 

860 REAOB$: PRINT"! AM "IB*!", YOU NEW OVERSEER. NOW...";GOT0310 

870 PRINTe768,CHR$(31)"THERE IS OftY ENOUGH GRAIN TO PLANT";SilO 

o-i;"tels.":er=€r+i:goto3io 

880 F'RINT1?768,CHR'»(31)"THERE ARE »1Y ENOUGH FtOFlE TO PLANT";pi 

io;"tels.";er=er+i:goto3io 

890 print(?76b,chr'$(31)"y0u have run out of time, zoser hants you 

R f€AO.":GOTO660 

900 print:print"YOu have starved";p-l;"people. zoser ^MNTS you" 

910 PRINT"MUWIFIED alive in the fCUSE OF THE DEAD.";GOT0660 

920 Q=RM)((P/2)/2000)xRND(100)iRND(100):(3=FIX(Q):PRINT"A PESTILE 

NCE DESCENDED FROM Af€N-RE."!H=H+l 

930 F'RINTQr'FtOPLE DIED.":P=F'-Q:GOT0510 

910 (J=INT(RND(0)iP):PRBfT"HYKSOS HHH CHARIOTS AND BLADES OF ELA 

CK EVIL fCTAL WVE 

ATTACKED Kt€M. ";Q;"FtOFlE WVE BEEN KILLED. ".*P=F'-Q;H=H+Z; RETURN 

950 V=RND(50):PRINT"M*;IAN EMISSARIES HAVE BROUGHT TRIBUTE OF";V 

; "STOREHOUSES 

OF GRAIN. ":s=s+v;h=h+i:goto510 

960 Q=INT(RND(0)xP):PRINT"ACHEAN BARBARIANS FRW THE NORTfCRN SE 

A HAVE RAIDED THE DITA. 

";o;"PEOPLE HAVE BEEN KILLED. ";p=F'-Q!H=H+2! RETURN 



970 F'RINT0576,E*;" "', 

980 Fra:NnAB(7);"imOTEP, you have fulfilled THE WISH OF PHAROAH 

II 

990 f'rinttab(7);"y0ur rehard is the great eoon of being entombed 

1000 fianttab(6);"hith y(wr lord wc' master, zoser, ttc golden h 

orus.":print(?960,g*;g$;g»;g»;g$;g*;g*;:goto660 

1010 v=rnd(50);print"a military campaign led by zoser has brough 

T 

AN AODinONAL";v;"TELS OF LAND INTO THE D(X«LE-taNGDOM.":D=D+V:H 

=H+l!G0T051(l 

1020 V=RND(5fl)+20;PRINT"MINOAN MERCHANTS HAVE Ef:OUGHT";v;"STOREH 

OUSES OF GRAIN TO TRADE 

FOR fETHODS OF BUILDING AS PRACTICED IN KHEMI."!S=S+V;H=H+2!RETU 

1030 V=RND(100):PRINT"THE FtMOAH'S NEW SYRIAN ERIDE EfiOlCHT A D 

OHRY 0F";v;" 

STOREHOUSES OF GRAIN. ":S=S+V:H=H+1! RETURN 

1010 V=INT(RND(0)xH)!F'RINT"A FANATID^ REBEL-PRIEST tWS ESCAPED 

HHH 

"|V;"HORKERS INTO THE HILKRNESS OF THE SINAI.":H=W-V;H=H+2!RETU 

R'N 

1050 FH=0THENRETURN 

1060 t>=RND(100)xlOO:PRINT"THE HOR'K FK^CE HAS REBELLED." 

1070 F'RINTUr'HORKERS, AND "IBil", THE OVERSEER, WERE KHIID" 

1080 PRM"BY PHAROAH 'S VICTORIOUS ANUBIS SQUADRON." 

1090 H=W-U 

1100 onerrorgot01190 

1110 readb*:print"the great zoser has cwjsen ";b»;" to be yolr" 

1120 print"new overseer. ":h=h+i:gotoi20 

1130 Z=RN0(2)+2:N=N-Z:H=H-(Hx.25):M=W+P 

1110 PRINTZ; "COURSES OF THE PYRAMID HAVE COLLAPSED AND ONE-FOJRT 

HOF" 

1150 PRINT"THE WORK FORCE HAS LOST.":H=H+2;GOT0120 

1160 N=23:GOT0690 

Lines 1170-1190! Here are the overseers, arid ari error trap- 
pirig roLitine to keep fro« rurining out of then. 

1170 ' I OVERSEERS * 

1180 DAT AMEf£-FTAH , RA-ANX-TETA , AT W(-ATON , SETEP-EN-RE , RAMOSE , MERI 

-ATUM , KA-RES , MAAnm , MERI-TEHU , TOTHMES , RE-MES-SES , PT W#1ES , MERIF'A 

SHTU 

1190 restore: RESUME 

Lines 1200-1310; The "E*" array is gererated here to store 
the picti.n-e for the intro(*jction and the erd of the 
gane. It was originally created by sinply (and tedious- 
ly) drawing the pictwe ori a Vitteo Display Worksheet. 
By referring to a sheet containirig the 61 TRS-80 graphic 
codes, each character was identified and coricateriated 
into a stririg. Each elenerit of the string array repre- 
sents a lirie on the screen. Finally, each elenent of 
the array is printed on the screen. 

1200 ' t GR'AFWCS x 

1210 CLS;DIME*(6):E$(0)=STRING$(15,191)+CHR»(159)+CHR'*(129)+" "+ 

CHR'«(132)+CHR*(179)+CW;iK117)+STRING*(25,191)+" "+CHR»(111)+CHR* 

(130)+CHR$(175)+STRING*(11,191) 

1220 Et(l)=STRING$(15,191)+CW^'$(118)+" "+CHR»(171)+STRING$(2,19 

l)+affi$(163)+CHR'$(171)+STRING$(20,191)+CHR'*(179)+CW<$(117)+CH?*( 

175)+CHR«(129)+CHR-*(133)+CHR*(1B8)+CW<»(168)+STRING$(11,191) 

1230 E$(2)=STRING$(15,191)+CW;:$(119)+" "+CHR$(138)+STRING*(2,11 

3)+CHF<(170)+STRING$(6,191)+CHR*(155)+CHR»(171)+STRING$(13,191)+ 

STRING»(2,113)+CHR$(132)+CHR*(160)+CHRt(111)+CHR»(191)+CHR«(170) 

+STRBffif(11,191) 

1210 E$(3)=STRING»(15,191)+CW»(151)+STRING»(3,151)+STRING»(2,19 

l)+CHR*(170)+STRING$(1,191)+Ctl»(188)+a«»(180)+CHR*(130)+" "+ST 

RING*(15,191)+CHRt(159)+CHR$(152)+STRING»(2,136)+CHR»(171)+STRIN 

G»(11,191) 
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1250 E»(1)=STK™G$(15,191)+CHR$(H9)+STRING»(1,166)+CH<$()75)+CH 
W(170)+STRING$(3,191)+CHR$(159)+STRING$(2,lt3)+" "+CHR$(160) 
+" "+CW?t(130)+CHR$(175)+STRING$(5,191)+CHR»(167)+STRING$(1,l 
66)+CHR»(170)+STRING$(11,191) 

1260 E$(5)=STRING$(16,191)+" "+CHR$(168)+CHR*(191)+{:HR»(180)+" " 
+CHR<(138)+STRING$(3,191)+CHR5(189)+CHR«(15fl)+CHW(178)+STRING$( 
3,130)+CHR*(166)+CHRt(153)+STRING$(3,lZ9)+CHR$(177)+CHR$(169)+CH 
R'$(170)+STRING$(t,191)+CHR$(129)+Cff'»(160) 

1270 E$(5)=€$(5)+CHR$(190)+CHR$(191)+" "+Ctt«(160)+STRING»(15,19 
1) 

1280 E*(6)=STRING$(16,191)+CHR'*(133)+CHR$(138)+CH»(H3)+STRING$ 
(2,191)+CHR$(136)+CHR-*(130)+CHR$(H3)+CHR»(175)+CHR*(191)+CHR»(1 
65)+STRINGt(2,175)+Ctf;*(172)+CHR$(160)+CHR$(166)+CHR«(153)+CHR$( 
11'))+CHR$(156)+STRING*(2,159)+™$(15^) 

1290 E*(6)=E$(6)+STRING$(2,191)+STRING$(2,l't3)+CHR*(lZ9)+CHR*(18 
S)+STRING$(2,191)+™$(113)+CHR$(133)+CHR$(138)+STRING$(16,191) 

1300 F'RiNTi?o,E»:pRiNTe6i,STRiNG$(6'»,i9i);" ";g»;g»;g$jg$;g$;g$;g 
$;string*(6i,i91):print(?256,e$(0);e$(1)|e$(2);e*(3);e$(1);e»(5); 
E*(6);pRiNT(?70i,STRiNG$((6i,i9i);" ";g*;g$;g$;g$;g$ig$;g$;string$ 

(61,191);E$ 

1305 Ff<INT STRING$(26,183);" IMHOTEP ";STRING$(26,183); 

1310 FOR ZZ=0TO5000tNEXT:RETURN 



Lines 1320-13701 It is JLtilee tine. Here Pharoah uses 
the niKiter of Mistak.es wade (ER), the (tegree of c«i- 
pletion (N), the ni.irtber of storehoijses (S), arid the 
rri.wher of people (P) to rate the ability of IMHOTEP. 
If rewarded, IMHOTEP has his Mistakes erased fro« the 
record, which, by the way, will get the priests off his 
back. 

1320 ' X JUEiILEE x 

1330 CLS:PRINT(?0,E$;:PRINTI?92,"JUeiLEE":F'RINT"IT IS TIME FOR FW 
ROAH'S Jl^tlLEE. YOU HAVE USED H^F YOUR Tift." 

IStO F(N=23)OR(N:>12)Af®(P>300000)ANO(SxlOOO;>F')A«)(ER<2)THENPRIN 
TLM',", PHAROAH IS PLEASED WITH YOUR PERFORmNCE SO FAR AND BEST 
OHS A GREAT HONOR ON YOU, FRW THIS MOMENT YOU ARE KNOWN AS 'GRE 
AT LORD IMHOTEP'," 

1315 ER=-i:iM*="GREAT LTO IMHOTff'":GOTO 1370 

1350 F(N<8)AW(ER>3)Af«)(P<300000)W<D(SxlOOO<=P+50)THEN PRINTIM* 
;", PHARAW IS DISPLEASED WITH YOU AND DESIRES FOR YOU TO SUFFER 
THE DISmNOR OF BEARING THE TITLE 'IMHOTEP TfC INCOMftTENT'." 

1355 ER-ER+i:iM$="IMHOTEF' THE INCOWETENT":GOTO 1370 

1360 F'RINTIM$;", PHAROAH FEaS YOU HAVE NOT PUT FORTH A GOOD FF 
ORT m DESIRtS TO REMIND YOU OF YOIF RESPONSIBBJTIES WITH Tl€ 
TITLE ' IMHOTEP-HORUS-WATCHES ' . " 

1365 IM$= "IMHOTEP-HORUS-WATCHES" 

1370 INFtJT"PRESS ENTER TO C0NTINUE";A»;R£TLRN ^ 



Now you can have a way with words 



• • • 




The SoHw&are Exchange 



6 South Street, Milford, NH 03055 
TO ORDER TOLL FREE 
1-800-258-1790 

(in NH 673-5144) 



I ^t ^^^^Q 



Scripsit - the new word 
processor from Radio Shack! 



SCRIPSIT features: Lower case capability; total documentation 
formatting; error correction by deletion, insertion, overwriting and 
exchanging; automatic headers, footers, and page numbers; Global 
find, replace, and delete; Operator-defined blocks for hyphenation 
and editing. 

SCRIPSIT will produce letters or any text material. The documents 
can be stored on disk for revision and update. 

If you've seen or used the Electric Pencil, you'll be delighted with 
SCRIPSIT's vcrsjiiliiv and extra features. Rapid typists will appreciate 
the fact that SCRIPSIT does NOT lose letters at the end of each line. 
Titles can be automatically centered. Screen width can be changed 
to match your printer. Tabs can be set, etc . . . 

If you are a BASIC programmer, you'll want to utilize SCRIPSIT's 
ability to work directly with BASIC programs. 

SCRIPSIT comes on disk with thorough documentation and 
sample text files. Includes three audio cassette tapes which cover all 
aspects of this exciting Word Processing Package. 

32K Level II TRS-80; one or more disk drives; lineprinter. 

The Complete SCRIPSIT Package (with Binder, Manual, 2 Disks, 3 
Cassettes, Instruction Summary Card and special press-on key labels) 
is only $95.00 + $2.00 shipping. 



MS4 
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KARTHPORT II 
continued from page 47 

rNG»(9,191)+CHR$(18?)+CHR$;i76)+STFJNG$(20,32)+CHf:$(176)+CHR$(18 
^)+STRI.WG$(7,l?l); 

11016 PF.:INT?3'13,CHft$(18«)+STf;ING$(7,l?l)+CHR»(180)+STRING$(25,32 
)+CHR$(174)+CHR■$(188)+CHRt(l?0)+STRI^ffi$(3,191);:F■RINT(?280,C^^<$(l 
i5(!>+OT'$(l'?0)+STRING$(1,191)+CHR$(H1)+STRING$(28,32,HCHR$(160)+ 
™$(181)+STRTNG$(2,191); 

11017 PRINTI?218,CHR$(188)+CHR'$(191)+CHR*(180)+STRING$(33,32)+CHR 
$(176);:PRINT(?155,CHR$(Ht); 

11020 PRINT0612,CHF;$(91)+CHR$(26)+STRING$(5,2'I)+" LANDING ■'+CHR» 
(2A)+STRING${7,2^;+" PAD "; 

Lines 11030-11090: FerforMS sawe fmction as routine at 
lines 55-100 

11030 gosue:iooo::<=5:y=3 

11035 0=0-1 :FO^0THE^J200 

11040 GOSUElOOOtGOSLKOOOIRESEKX.Y) 

11050 X=X+(HS/2) 

11040 Y=Y+(VS/2)x-l 

11070 IFX.3THENX=3ELSEIFX>121THENX=121 


11080 IFY<2THENY=2 

11032 IFX>70ANDX<77AH)Y>23ANDY<26THENR£SET(X,Y):GOSUE:12000:GOT01 

1900 

11085 rPOINT(X,Y)THEN6000 

11090 SET(X,Y);GOT011035 

Lines 11900-11999! Erases view screen. 

11900 FORA=65TO705STEP64:PRINTeA,STRING$(62,32);:NEXT!F'RINTe769, 

STRING$(42,176); 

11999 RETURN 

Lines 12000-12001! Displays coMpijter report Message usirig 
MIDJ furrrtion. 

1 2 PRINT?867 , STRING! ( 27 , 32 ) +CHR$ ( 26 ) +STRING* ( 27 ,21 ) +STRING$ ( 2 
7,32)* 

120O1 M$=" COMPUTER' REPORT! THE CLOSE-UP S 

CANNER REPORTS LANDING PAD IN VIEW, NOW SWITCHING VIEW SCREEN TO 

CLOSE-UP SCANNER. ":FORA=lTO(LEN(h 

$)-28):PRINTg931,HID$(M$,A,28);:FORB=lT01C:N£XTE;,A:RETURN £^ 


VARIABLES: 

Amount of oxygen remaining 

in tanics. 
HS Horizontal Speed 

(Either - or +). 
VS Verticle Speed 

(Either - or +). 
SL Rank or Difficulty level. 


R$ Where the Rank string is 

stored. 
X-Y For next variables for 

graphics. 
A Display variable for use in 

displaying points. 
P-S Variables used to read data 

for constructing landing pad 

dome. 




ST80* UC 



ST80 has a smart terminal 
package for you! 

Ail tour pro^rami include the ability to use dn unmodified TRS-80 keyboard to produce RUB, ESC. and 
other control characten lor time sharing, software control of the RS-232-C board, repeal key. bell, software 
support for the three most common upper.^lower case hardware conversion, and line printer output. 



Preset parity, word length, and baud rale (regardless of switch settings on the RS-232-C board) for THE SOURCE, 
IvIICRONET, and FORIIM 80. automatic testing of the RS-232-C board, and even spooling of prepared messages on tape 
directly into FORUM 80 using a basic program supplied as a line listing. 4K Level II cassette, $24.95 



ST80' 



Reprogram your RS-232-C board from the keyboard, aiiil run at different baud rates. Note: does not have auto testing of 
the RS-232-C or tape spooling. 4K Level II cassette $49.95 



ST80*D 



Connection time clock, option of user-created translation tables for keyboard, gathering and pre-formatting data to be 
sent directly from disk to host computer, spooling of received files to disk or printer, editing of received files, and auto logon. 
Use It with VTOS 3.1. and get device-driven I/O, job logging, and chaining. 32K disk programs, $79.95 

ST80*III 

ST-80 D with extra utility programs. 32K disk program. $150.00 

The Sohwate Exchange 

6 s.iulh Si . MiIiomJ. SH 0)055 

ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 

• 4 rr.ii/(Tn.irl ol l.iiKi' Mii klus. Ini 
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This Weekend: 

STIK 

IT.... 
••to your 



That's right! Esmarks VIDIET-STIK light pen has 
the TRS-80 CONNECTION for LEVEL I & II. Your 
4K to48K TRS-80 System will come alive under 
your VIDIET STIK within minutes of its arrival. 
That's because there are no vi/ires to solder or 
traces to cut You're up and running as fast as 
you can plug the mlerface into your system's 
cassette EAR-jack. CLOADourcustom LIGHT 
WAVE demonstration softv^'are and RUN And 
because the interface has a plug for your re- 
corder, you wont have 'o unplug it again when 
loading your other software tapes The inter- 
face allows them to pass right thru whenever 
you're not using the pen It's exclusive "switched 
tip" design means the pen's electrically iso- 
lated from yout system when it's not in use. 
Just point & press' Its that simple. .Plug, 
CLOAD and RUN. And have we got the software 
tor you to RUN with' Our demonstration tape 
includes a calibration program (used to adjust 
the CRT's brightness and contrast) plus STIK 
TAC-TOE. AWARI and TOWERS Two challeng- 
ing games and a puzzle that will keep grown- 
ups and children Stiking it to your TRS-80 for 
hours And there are instructions provided so 
you can begm writing your own light pen pro- 
grams (light ware) for fun or profit (Level II) Or, 
|ust sit back and enjoy our LIGHT WAVE tapes 
each month Esmarks unmatched commit 
ment to lightware can bring you up to five new 
games, puzzles, drills & educational quizzes 
or simulations each montti Our current LIGHT 
WAVE releases are 



LIGHT PAK 2 LlGHTPEG(4 peg-jump puzzles) 

ENDRUN (Othello with a twist') 
(LEVEL II) LIFE9 (Conways LIFE with 

mutations) 

Price $19 95(including postage 

& handling) 
LIGHT-PAK 3 LITEGAMMON (Backgammon 

you'll Stik wilh) 
(LEVEL 11) STIKWUMPUS (Caves with a 

httle life) 

MAZEMASTER (Maze alter 

maze to poke thru) 

Price $19 95(including postage 

& handling) 

Order yours now and we II include a free copy 
of FLASHBACK. Esmark s newsletter dedicat- 
ed to the latest news m lightware applications 
And don t forget to tell your fnends The 
VIDIET-STIK can also be ordered for use on 
most other micro systems using the following 
processor chips 



T 

R 

S 
I 

8 
O 



8080 



Z&O 



6800 



6502 



All that's required is a standard cassette jack 
leading to Ground and a readable single bit in- 
put port Driver software is provided along with 
instructions for writing lightware applica- 
tions And tell your local Dealer that Esmarks 
got a Dealer package he won t want to miss 
out on Delivery is 3 to 6 weeks from receipt of 
your order C O D s are $3 00 extra but will be 
shipped within 2 weeks AM prices are FOB. 
f^ishawaka, Indiana Indiana residents add 
4% sales tax 



ALSO COMING FROM ESMARK 

•TRS-80 Printer Interface (Cassette AUX-jack 

interface for all RS232 prints. Includes LLIST 

& LPRINT software) 

• TRS-80 RS232 Communications Interface 
(Makes your TRS-80 a full I/O terminal to time- 
sharing systems the world over Gives you 
intelligent or dumb terminal capabilities at 
110 or 300 BAUD Also includes Printer Inter- 
face above with 20 mA current loop & TTL 
level I/O options.) 

— TRS-80 IS a trademark of Tandy Corporation— 



ESIVI^\RK INCORPORATED 

507V3 E. McKINLEY HWY. MISHAWAKA, IN 46544 

(219) 255-3035 4!RP 95 

PLUS $1 50 

•ELECTRONIC SYSTEMS MARKETING ^H^J,^^^' *' 

HANDLING 



ESCAPE 

continued from page 35 

:PfaNrM07,CH»(191) ;STraNG*(3,176) ; .'FraNTM/ltSTRINGteifm) ; .'P 
RIMT('535,STRING$(1,191);:F-RIWTg599,CHR»(191);" "; 

125 ISTURN 

126 h=0:a$=string$(31,191):fqrc=206to782step6i:printk,q*:*(170) 
a$chr$(H9);;next:return 

127 m=i:a$=string»(18,188):printe312,chr*(168)a$chr»(h8);:a$=st 

RING*(18,131):PRINTe6<52,CHR<(13fl)A*CHR$(129);:A$=STRI>«»(18,191) 
:FORC=106TO598STEP6i:PRINTeC,CHR»(170)A«CHR$(149);;NEXT.*RETliRN 

128 H=2:A$=STK[NG$(8,176):PRINTM11,C«»(160)A*CH«*(111);:A$=STR 
ING»(8,191):PRINTM75,Ct«<(17O)A*CH<«(119);:F1<INT0539,Of!$(17O)A 
$CtR«(119);:RETURN 

129 M=3:FORX1=<40T067:FORY1=22T021!SET(X1,Y1):NEXT:NEXT;RETURN 

Line 1301 Error trapping nxitine (hopefully never used). 

130 RESUMeCXT 

Line 131 ; Drsws the picture of the "X" and saves it in L». 

(The "X" is really the walls of the naze convergirig in 
the distance.) 

131 FORX1=OT0127:SET(X1,X1xV/127)!SET(X1,V-X1i17/127);NEXT;FOR 
Z5=OT015;F>a;EVARPTR(Z$)+l,(Z5-INT(Z5/1)i1)>i61!F'OKEVARPTR(Z$)-f2,6^ 
0+BfT(Z5/1):L»(Z5)=Z$:NEXT:Lt(15)=L£FT$(L$(15),63):RETURN ^ 
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T1LSE 



View two text screens at 
once; Keep notes on one 
and edit the other. 
Connplete cursor control. 
Built in floating point math. 
Automatic tabbing. 

Delete character, word, line 
or screen. 

Right, left, or center justify. 
Unlimited text movement. 
Global search and replace. 

Complete file merging 

capabilities. 

Automatic page numbering. 

Upper and lower case. 

Superscripts, subscripts 

and underscoring. 



For the APPLE II and 

APPLE II Plus, 48K 

$99.95 



TheSaih&are Exchange 



TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 



PRKPACK 

continued from page 48 

390 D$=0$+A$ 

100 D$=M+" " 

110 F-2 

120 E=l 

130 Q$=MIDt(D$,P,l) 

HO R$=Kn)$(M,P-l,l) 

150 S»=MID$(Dt,P+l,l) 

160 IFQ$=A$THDt=-£ 

170 IFE=-1TH£N520 

180 IFQ$<>" ; "0RR$O" ) " W«RtC'A$ANDS»C>A$ORS»=" : "THEN520 

190 IFMIM ( M , P+1 , 1 ) ="ELSE"THENF'=P+1 : GOTO520 

500 D»=LEn$(M,P-l)+(<IGHT$(M,L£N(M)-P) 

510 P=P-1 

520 F'=P+1 

530 IP<1EN(D$)-3THEN130 



510 D$=LEFT$(M,LEN(D»)-3) 

550 Q=l 

560 I=INSTR(Q,D$,"INF'UT") 

570 IFI=OTHENPRINT*2,D$;GOT0280 

580 E=l 

590 F0RX=1T0I-1 

600 IFMIDt(D«,X,l)=AlTHENE=-E 

610 NEXT 

620 P=I+5 

630 IFE=-1THEN680 

610 IFMID$(D$,P,1)<;A»THEN680 

650 P=P+l 

660 IFMIM(M,P4)C>A$Tf€N650 

670 D$=LEFT$(M,P)+";"+RIGHT$(M,LEN(D«)-P) 

680 Q=P 

690 GOT0560 



f 1 s u r e 1 
these semicolons can be safely removed 

IB PRINT X; "PIECES. "; : PRINT X ; 0(0) ; Y : INPUT"HOW MANY";Z 

-^ T i» 

these semicolons must remain where they are 



® 




bv JOMES THLLEV 



NFL-PIX for 1980-1981 SEASON 

******************************** 

Predict this Season's Games! 

***•****«♦***•«*•******«******** 

This program will maintain weekly 
team schedules, keep track of scores 
of games played, list current Division 
win-loss standings and --- predict the probable outcome of games! It establishes 
a rolling average of strengths of all teams based on past performance. During the 
last season its prediction was 6% better than the Greek Prognosticator! 

For 16K Level II TRS-80 or Single Disk DOS - - Just $19.95 
Please specify tape or disk!! Documentation supplied with either disk or tape. 

80 U.S. Software 

3838 South Warner Street 

Tacoma, WA 98409 

(206) 475-2219 

Check, Money Order, Visa/Mastercard 

TRS 80 IS a Trademark of the Tandy Corpordtioii 
80 US Softwart' & 80 US Journal are Divisions of 80 Northwest Publishing Co. 
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recordings 



AMP RECORDING 

AND 

DUPLICATING SERVICE 

609 667-1667 

307 West Main Street 
Maple Shade, NJ 08052 



For Digital 
needs: 

* AMP "Data-sette" blank 
cassettes 

* Digital cassette 
duplication 

* Storage Boxes 

* Labels - Custom 
printing & blank 



For AUDIO 

needs: 

* On-location music 
recording 

* Record Album 
production 

* Stereo and Spoken 
Word cassette 

duplication 

* Blank cassette and 
supplies 



All cassette work at 

AMP R. & D. is custom 

work to fit your needs. 

Call or write to "Jerry" 
for more information. 



DATAPOKE 
continued from page 49 

line 10. Appears in lines 470, 490, 
510, 520. 

PL Pointer to memory locations 
within line 10 that are to be 
changed. Appears in lines 470, 
480, 490, 500, 520. 

X$ Temporary storage for strings 
converted from integers. Appears 
in lines 170, 180, 190, 470, 480, 
490, 500, 510, 520. 

Y Holds integer to be broken into 
its least and most significant bytes. 
Appears in Hnes 50, 60, 330, 350, 
430, 440, 450, 470. 

Z Ranges between 5 and 255. 
Points to position within DATA 
statement where next character is 
to be Poked. Appears in lines 150, 
190, 200, 210, 320, 330, 350, 400. 

Program Breakdown 

10 GOTO 20:* will later be 
overwritten with blanks. The other 
* s will be replaced by numbers. 

30 Checks if the first colon in line 
10 (ASCII for colon = 58) is still 
there. If not, 'BREAK' key has 
been hit and program has been 
restarted. 

40 EN points to first available 
memory location for a new 
program line. 

50-60 Store EN and EN+5000 so 
they won't be lost when BASIC 
pointers reset. They are stored in 
locations previously containing 
20:* from line 10. 

70 Reset end of program pointer to 
point 5000 locations further up in 
memory. Makes room for DATA 
statements. CLEAR50 resets other 
pointers. 

80 Get EN out of storage 

90 Poke GOTO20 : into line 10. 



100-145 Instructions. Input 
memory locations to be saved. 

150 Subroutine 470 fills in * s in 
line 10. C counts DATA 
statements. DN is DATA line 
number. Subroutine 440 formats a 
DATA statement. 
160-220 Fill in data. 

170-200 PEEK at memory location, 
convert to string, and POKE 
ASCII code for each digit into a 
DATA statement. 

210 Put comma (ASCII for 
comma=44) after number in DATA 
statement unless close to end of 
statement, in which case fill to end 
with blanks. 

230-310 Instructions. 

320 Three zeros is end of program 
marker. 

330-340 Last DATA statement now 
points to end of program. 
350-370 Reset end of program 
pointer. 

380 Blank out GOTO20: in line 10. 
400-420 Update DATA statement 
counter C, DATA line number 
DN, first location of current 
DATA statement EN. Subroutine 
440 formats DATA statement. 

430 Convert integer Y into least 
significant (LY) and most 
significant (MY) bytes. 

440 Put in pointer to next line. 
Next line starts 256 locations 
further up. 

450 Put in line number. 

460 Put in code number for DATA 
(136) and end of line mark (0). 

470-520 Fill in * s in line 10. 
470^80 Prepare memory size data. 

490-500 Prepare data for FOR . . . 

NEXT instruction in line 10. 

510 Make string a uniform length. 

520 POKE string into position in 
line 10. 



10 GOTO20 : iP0KEl(456 1 , x«x ! FflKElASAZ , xxx I CLEAR50 ! FORK=xxxx)«TO)«»ai»a< 

:readn:pokek,n;next 

20 f£ii H. MASON, EOX 316, HORNITOS, CA, 95325 

30 CLS:PRINT"DATAP0KE - BY W. MASON":F1<INT;IFPEEK(17136)0-58TI£ 

ncls:print"Sori<y, no rer'Uns. must load program again.":end 

10 DEFINTA-Z : EN=PEEK ( 16*33 ) +FEEK ( 16631 ) x256-2 

50 Y=EN:GOSUB130:POKE17131,LY!POf(E17135,MY 

60 Y=EN+5000:GOSUE;130:Ft)KE17136,LY:POKE17137,MY 

70 F'OKE16633,FtEK(17136):POtI16631,PED;(17137):CLEAR'50 

80 DEFINTA-Z:EN=PEEK(17131)+FE:EK(17135)x256 

90 POt;E17133,11i:FflKE17131,50;F'OKE17135,18:POKE17136,32;p»;E1713 
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100 F1<INT"THIS PROGRAM COPIES THE NU^f;ERS IN SFtCIFIED MEMWY LO 

CATIONS 

ONTO DATA STATEMENTS BEGINNING ON LINE 20 . 

IT ALSO LEAVES IN MEMORY A BASIC PRflGRAM WHICH, l*CN fm, SETS 

memory see ahc pokes the data back into memory." 

110 print:input"enter (in decimal; smallest memory location to b 

E saved";m:print 

120 IFM<=PEEKf 165.61 )+PEEK(16562)x256 PRINT"WAfiNING; MEMOR'Y SIZE 

NOT SET LOW ENOUGH TO PR'0TECT";M!PRINT 

130 PRINT"D0 you want to save all MEMORY FRW'IMr'TO 32767"; :INF' 

UTA$ 

HO IFLEFT»(A$,1)="Y"THENL=32767 ELSEINF'UT"ENTER FINAL MEMORY LO 

CATION TO BE SAV'ED";L' :IFL' <=32767THENL=INT(L' ) ELSECLS:FfiINT"SO 

m, I CAN'T GO HIGHER THAN 32767. TRY AGAIN'":GOT0110 

115 iFL :mthencls:printl"IS LESS than";m,'". try agaln''":gotoiio 
150 cls;gosubi7o;n=l-m;c=i:dn=2o:z=5:gosue:1'»o 

160 EORK=OTON 

170 Xt=:STR$(PEEK(H+K)):F'R'INTI?0, "SAVING MEM L0C";M+K 

180 F0RI=2T0LEN(X$) 

190 P0KEEN+Z,ASC(MID$(,X$,I,1)) 

200 z=z+i;nexti;ifz=255 gosubioo 

2 1 IFZ: 5THENIFZ :252TH£NP0KEEN+Z , 'H ! Z=Z+l ELSEF0RZ=ZT025') ! FOKEEN 
+Z,32:NEXTZ;GOSUPfOO 
220 NEXTK 
230 CLS 

210 PF;iNT"MEMORY locations";m;"to";l;"noh saved on data statemen 

TS."; PRINT 

250 PRINT"LINE 10 NOW CONTAINS A FI^OGRAM WHICH WILL SET MEMORY S 

IZE 

at";m;", and then poke the data back into memory. ";print"th£ dat 
A IS ON ";:ifdn=2othenprint"line 20." ELSEPRiNT"LiNES 20 -";dn;" 

II 

260 PRINT"EVERYTHING EXCEPT LINE 10 AND THE DATA HAS BEEN DELETE 
D." 

270 F1?INT;PFJNT"BEF0RE you CSAVE THE FfOGRAM, YOU MAY WANT TO AD 

D 

COMMENTS AND INSTRLCTIONS." 

280 REM 

290 PRINT :PRINT"SUGGESTI0N: FOR A 'SYSTEM' PROGRAM ADD:":PRINTDN 

+10;" PRINT";CHF:$(3'!)r'T0 START, ENTER 'SYSTEM', THEN /X";CHR$(3 

V 

300 PRINT"WHEN ENTERING LINE";DN+10;", ENTER A STARTING ADOR'ESS 

IN PLACE OF X." 

310 REM 

320 POKEEN+Z-1 , O :POKEEN+Z , IPOKEEN+Z+l , O 

330 Y=EN+2:GOSUEt30 

340 P0KEEN,LY.'P0KEEN+1,MY 

350 Y=EN+Z+2;GOSUB130 

360 POKE17131,LY:FOKE17135,MY 

370 POKE16633,PEEK(17131):F'OKE16631,PEEK(17135) 

330 CLEAR:FORI=OTO'':POKE17133+I,32:NEXT 

390 DELETE20-520 

100 IF n-jn thenz=5:c=c+i:en=en+256:dn=on+io:gosue:iio 

110 IFC-20THENCLS;F'RINT"DATA SPACE full";end 

12f RETURN 

130 M Y=INT ( COEl ( Y ) 7256 ) I LY=Y-MYx256 : RETURN 

IIP Y=EN+256 : GOSUei30 1 POKEEN , LY : FtlKEEN+l , MY 

"50 Y=DN;GOSU£:130:POKEEN+2,LY:FCIK£EN+3,MY 

160 POKEEN+1, 136:P0KEEN+255, ;REnjRN 

170 N=i;Y=l1-2:GOSU£:130:X$=£TFi(LY):PL=17113:GOSUB510 

180 X»=STF;t(MY):Fl=1715i:GOSUE:510 

190 N=6;X$=STR$(M):PL=17165:GOSU£510 

500 X$=STR}(L).'PL=17171 

510 iflen ( x$ ) <nthenx$=string$ ( n-len ( x* ) , 32 ) +xt ^ 
520 fori=2ton:pokefi+i,asc(mid«(x$,i,i)):next:return ^ 



x-uiinii II 



by Chris Freund 



V t 



For the thousands who have enjoyed 
X-Wing Fighter, X-Wing II presents a 
totally new element in the game! 

You are the pilot of an X-Wing fighter 
.... Your Mission, Destroy the Death 
Star! . 



•>s . 



'•* . 1 ' 



-«:Scn-'»*- 



Where X-Wing I left Death Star I 

looming on the screen, X-WIng II lets 
you guide your fighter into the trench, 
find the exhaust port, aim and fire — all 
the while avoiding enemy fighters. 
Excellent graphics, 12 levels of play, and 
extensive !NKEY$ commands make this 
one of our most exciting "real-time" 
games. 

Level II, 16K - $9.95 



"^X 



The Sohware Exchange 

6 South Street. MiHord. NH 03055 

TO ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 




LATE ARRIVALS - NEW PRODUCTS 



INTERACTIVE 
FICTION 




Step inTo a new dimension 
in literature. 



NEW! From Adventure International 



Traditionally, literature has been a one-way medium. The information flow was from the novel to the 
reader, period. Interactive Fiction changes this by permitting the reader to participate in the story itself. 

The computer sets the scene with a fictional situation, which you read from the terminal. TTien you 
become a character in the story: When it's your turn to speak, you type in your response. TTie dialogue of 
the other characters, and even the plot, will depend on what you say. 

Robert Lafore, writer, columnist, and programmer, has created a series of works in Interactive Fiction. 
Each is available on a 5%" diskette for use on a TRS-80* Level-II with at least 32K memory and one disk drive. 

Six Micro Stories offers a good introduction to Interactive Fiction. Six very short stories involve you, 
the reader, in a variety of situations: You are an American spy in Hitler's Third Reich, the pilot of a doomed 
747, and more. 

Local Call for Death is a detective story in the style of Lord Peter Whimsey. Considerably more 
challenging than the above program, this one will put your analytic skills {and social savoir-faire) to the test. 

Two Heads of the Coin is a psychological mystery set in the London of Sherlock Holmes. Most 
challenging of all, this program will tax your observational skills and, above all, your imagination. 

On TRS-80 Disk. Requires User to have a copy of TRSDOS 2.2 or 2.3. 

Six Micro Stories $14.95 
Local Call For Death $19.95 
Two Heads of the Coin $19.95 



The SaHw¥are Exchange 

6 Soulh Sireel, Milford, NH 03055 

TO ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 
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GALAXY INVASION 

Big Five Software 

The newest and most exciting Invaders-type 

game yet! Smooth sound effects, sharp 

graphics, and the "Flagship" alien from Super 

Nova combine to make this our finest TRS-80 

game! 

$14.95 16K Level I or II 



VISICALC 

Personal Software 

Distributed by Radio Stiack. 
Tandy Corp. 



Now you can dispense with pencil and 

calculator— Instead you can have an "electronic 

sheet" to do your calculations, projections, and 

planning! 

Calculate sales projections. Income taxes, per- 
sonal budget, cost estimates, engineering 
change— even balance your checkbook. Vislcalc 
is partitioned into a matrix of rows and columns. 
At each position in this matrix you can define a 

title, formula, or number. By writing on your 
"electronic sheet" you can set up individualized 

charts, tables, and records. For example, you 

can design your own sales forecasting format to 

assist in making the important "What if?" 

business decisions. 

What would happen if sales increased by 
10%? 

What if delivery time were decreased by 2 
weeks? 

What would be the result if I produced 500 
widgets this month instead of 600? What if I pro- 
duced 700? 

Let Vislcalc assist you in performing these 
calculations and save you countless hours. 
Visicalc requires 32K, TRS-80 and disk drive. 
$95.00 



SUPER NOVA 

Big Five Software 

"Huge Asteroids have invaded the galaxy! Your 

mission is to destroy them and the alien saucers 

before they destroy you!" Our #1 top selling 

game! 

$14.95 16K Level I or 11 







STAR 
TREK 
.5 




Now with Sound Capability & Increased Speed of 
Execution. 

You are in command of the starship Enterprise 

and her complement of 371 officers and crew. 

You must enter and explore the Omega VI region 

of the galaxy with its 192 quadrants containing 

star systems and planets (a few of which are 

habitable). Astronomical hazards such as 

pulsars. Class stars, and black holes are 

known to be present in the region. Klingon battle 

cruisers are also present, so the utmost care is 

needed. 

Star Trek III.5 includes, playboard 8 by 8 by 3 

quadrants, weapons system of Phasers and 

Photon Torpedos; Warp and Impulse power 

systems; Science and Ship's computers; Long 

and Short Range sensors; Damage Control and 

Status reports; and 20 Klingon battle cruisers, 

and 100 stars, planets, black holes, and pulsars. 

Available on Digital Cassette for Level II, 
16K... $14.95. 



TheSattware Exchange 

6 South Street, Milford, NH 03055 
TO ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 
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The next generation 
of adventure... 



You have a scimitar, a 
stiletto, a blowgun, a 
suit of armor and 177 
pieces of gold at your 
fingertips. . . 







buttoi 



crushed by a 10,000 pounc 
of granite or end up as an hors d'oeuvre 

for the slither beast! 

It's Maces and Magic, a new series of adventures that begin when you sit down to 
your computer. To begin you must create a character, choose the weapons you will use and then 
set off to the land of enchantments, illusions, and monsters. Fame and fortune await you there. 

In order to create your character, the program will generate a set of Prime Attributes: your 
strength, IQ, luck, constitution, dexterity, and charisma. These Prime Attributes in turn determine 
your character's secondary abilities, such as languages spoken, or weapons that may be used 
without the character becoming tired 

Once the character has been created, then it's time to acquire equipment from the General Store. 
The equipped character is then off on an adventure which he may or may not survive. If you survive, 
your character will live again to adventure another day. If not, you may rest happy in knowing that 
the slither beast has a full stomach. 

All of the Maces and Magic series are governed by consistent rules Random events will occur, 
but intelligence, ingenuity, and skill determine the outcome of the game. 

TRS-80 (dual disk, 32K, DOS 2.2 required) 
#1 The Balrog Sampler. $35.00 
#2 The Stone of Sisypfius. $35 00 




b Soulh Si .Millord. NH amW 

ORDER TOLL-FREE: (in NH call 673-5144) \f 

1-800-258-1790 
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A Microsoft adventure 

for the TR$-80 and Apple. 



Here is the granddaddy of the computer Adventure games. 
Microsoft Adventure, from the people who wrote BASIC for 
personal computers, places you in "Colossal Cave/' where both 
treasures and perils abound! Here you can find gold, silver, 
jewelry, magic items, and precious pottery. But you may also 
find threatening dwarves, trolls, large green snakes and a giant 
oyster. Meet the pirate and the computer wizard. See the 
volcano and sulphur lakes. 

As you become more skilled in overcoming obstacles and 
avoiding hazards, more regions of the cave will open up to you. 
Keep your wits about you and you may eventually become a 
Grand Master. Slip up and you may not become anything, if 
that. It all depends upon your ability and your ingenuity. 

When your adventure begins, you will find yourself outside of 
the cave. From there on in you must tell the computer what 
you wish to do by means of one- or two-word commands. 
Sometimes the computer might offer to help you with a small 
hint, but remember, there's no free lunch! You will have to do 
most of the work, including learning to use magic, yourself. 
Look for allies in unexpected places and you might surprise 
yourself. But above all, enjoy! 

TRS-80 version 32K disk 

$29.95 

Apple version 32K disk 

$29.95 




TO ORDER TOLL-FREE 

1-800-258-1790 

VISA 

(In NH call 673-5144) 
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COMING NEXT MONTH 





MAD SCIENTIST 

a daring adventure 

KRIEGSPIEL 

a war game for two 

METEOR STORM 

BOWLING 

TRENCH 

the death star awaits 
and more . . . 



r^LU Ol Part 3 of SoftSide's Developing Data Base, and Sound and Graphics 
columns, Programming hints, and MORE .... 



DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 



ISO 1 




•^ 



ISO 2 



Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash 
'ISOLATOR I ISO-1 A) 3 filter isolated 3'prong sockets; 
integral Surge/Spike Suppr«ssion; 1875 W Maximum load, 

1 KW load any socket $56.95 

•ISOLATOR (ISO-2) 2 filter isolated 3 prong socket banks; 

(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load, 1 KW either bank $56.95 

•SUPER ISOLATOR (ISa3), similar to ISO 1A 

except double filtering & Suppression .... $85.95 
•ISOLATOR (ISO 4), similar to ISO 1A except 

unit hs 6 individually filtered sockets .... $96.95 
•ISOLATOR (ISO 5), similar to ISO 2 except 

unit has 3 socket banks, 9 sockets total . . . $79.95 
•CIRCUIT BREAKER, any modat (add-CBI Add $ 7.00 
•CKTBRKR/SWITCH/PILOTany modal 

(CBS) Add $14.00 

PHONE ORDERS 1617 655 1532 ™gp 

IS^ Electronic Specialists, Inc. 



171 South Main Street. Natick. Mass 01760 



Dept. 80 
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S-9 READER SERVICE 29 




''Did you know you 

^'^ould set SoftSide's 

prosfciins already 

Slyped?'' ^ 



With SoftSide Disk and Cassette subscription you can get each month's 
TRS-80, Apple, or Atari programs delivered on disk or cassette with every 
issue of your SoftSide. No more hours of typing. No hunting for typing 
mistakes. The programs for your computer are tested and ready to go the 
day you receive them. 

To order, use the form below or call 1-800-258-1790 toll free. In N.H. call 
673-5144. Be sure to specify TRS-80, Apple, or Atari. 

If you already receive SoftSide magazine, you will receive credit for the 
remainder of your subscription toward your new cassette or disk 
subscription. 



TRS 80. Apple, and Ata 



• irademarks ol TANDY. APPLE COMPUTER CO . and WARNER COMMUNICATIONS, rcspecdue/y. 



jsffsia. 



m 



V/SA 



/ 



\ 



/ n Magazine $18/year 
D Magazine and Cassette $39/6 months 
/ D Magazine and Cassette $75/year 
D Magazine and Disk $64/6 months 
n Magazine and Disk $125/year 



MC# 



Specify: 

n TRS-80 programs 
D Apple programs 
n Atari programs 



n Check or money order 

D VISA 

n MasterCard 



Signature _ 



-Exp date. 



(M/C only) 
.Interbank #_ 



Name. 



Address . 
City 



.State 



-Zip. 



J 



\ 



\ 



© 



MAIL TO: SOFTSIDE, 6 SOUTH STREET, MILFORD, NH 03055 
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The Software Exchange Order Form 



DESCRIPTION 



MEMORY TYPE 



PRICE 



SPECIFY: TRS-80, APPLE, 
ATARI or PET. Do not use for 
hardware. 



Check 
Money Order 



CHARGE ACCOUNT NUMBER 



master charge 



ADD handling charges 

(Foreign ordere minimum S5.00 handling) 

Additional charges 
TOTAL 



$1.00 




Signature.. 



.Exp. Date. 



.Inter. No.. 



Name. 



Address. 



City- 



.State. 



.Zip. 



MAIL TO: The Software Exchange 
6 South St. 
Mllford, NH 03055 



Special prices In effect 60 days from mailing 



or, CALL TOLL FREE 
for Orders Only 
1-800-258-1790 
(In NH call 673-5144) 



Level II software available on disk for a {5.00 (per order) medium charge. Tills extra tee Is for any number of programs transferred to disk from tape 
wtien you order. If tfie order exceeds the capacity of a single disk, we absorb the extra cost. 

Be sure to Include handling charge and any additional charges when figuring your total. All m house orders shipped within 4 working days. 

All prices era subject to change without notice. We are not responsible for typographical erron, Including Incorrect prices. 

ALL SOFTWARE GUARANTEED TO LOAD AND RUN. If you experience difficulties, simply return the tape or disk properly protected for free 
replacement. Send to the attention of Bette Keenan, Customer Service Representative: please enclose a brief note and your name and mailing 
address with the software. 

ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WARRANTY. TSE assumes no liability for loss or damage caused or alleged to be caused 
directly or Indirectly by equipment or products sold or exchanged by them or their distributors, Including but not limited to any Interruption In 
service, loss of buslneaa or anticipatory profits or consequential damages resulting from use or operation of such equipment or software. 
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They also have in common Softside's objectives: 

• To provide software for your home computer, software that you and your family can 
enjoy while they learn. 

• To provide practical "how to" information about microcomputer software, the kind of 
information you could only acquire by consulting specialists or by subscribing to several 
publications. 

• To pass along the knowledge and experience of trained educators and magazine editors 
in the field of microcomputing. 

• To search out, report and interpret in a fashion that he or she can fully understand, all 
areas that affect the home computer owner. 

• To establish Softside as the medium to which all microcomputer enthusiasts - from the 
elementary student to the accomplished programmer - can turn for consistency in editorial 
direction and a resolve that the articles contained between our covers will be informative, up 
to date, and easily read by all. 

Softside will give you reports, analyses, profiles of individuals and companies, "how-to" 
material. Articles that keep you posted on fast-moving developments that you and your family 
should know about. Articles that give you at least a working knowledge of specialized areas 
of concern, without being entirely devoted to that sort of reading. 

Where else can you find information like this? Of course, you could spend countless dollars 
subscribing to a legion of magazines, not one of which gives you all the readable information 
that we do. 

I think you will enjoy reading Softside, and come to see that our consistent editorial 
direction will increase your powers of retention as they apply to microcomputing. It will be 
lively, bright, concise, and superbly written and edited. 

If you would like to learn more about the microcomputer while relaxing in your own home, 
Softside is for you. And here is how you can judge for yourself. 

If you would like to enclose your payment, that would be fine. However, if you'd like to be 
billed, simply check the 'bill-me' box on the subscription card. Just return the order card. 
We'll start you subscription immediately and bill you at the Charter rate of just $15.00 for the 
year (12 issues) - a discount of 37V2% off our regular price. 

Let me suggest that you act promptly, while this offer is in effect. Subscribing to Softside 
will give you more than just clues to unravelling the many mysteries of microcomputing. 



Sincerely, 



^c.^^ 



William F. Gollan 
Circulation Manager 
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A Note from the Editor 

You may or may not already be familiar with SoftSide magazine. If you are, it's likely that 
you remember it as a digest-size publication that has good software and a lot of programming 
hints for the TRS-80 or Apple. Well, we've expanded our format. We still offer everything we 
did before, including our friendly, easy-to-read approach; but now we've also made a firm 
commitment to fully explaining the how and why of your computer and the programs we 
publish. Each and every one of our programs is fully documented and explained. We've added 
regular columns by professional programmers who create microcomputer software to share 
their tricks and techniques with you. We've added regular how-to columns about such things 
as computer graphics, adding sound to your programs, and developing your own data base 
program. We've even added an interesting little feature called "One-Liners," amazing little 
programs written in only ONE line of code. All this fully supports the TRS-80, Apple, and now 
the Atari computers. As other home computers reach wide levels of acceptance, we'll support 
them also. 

We hope you'll try SoftSide. We think we have a good, interesting, and useful magazine. 
Whether you're just starting out or already a pro, we hope you'll find something in SoftSide 
you like. 

Sincerely, 



Mark Pelczarski 
Editor 
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Did you know you could 
get SoftSide's programs 
already typed?*' 

With SoftSide Disk and Cassette subscription you can get each month's 
TRS-80, Apple, or Atari programs delivered on disk or cassette with every 
issue of your SoftSide. No more hours of typing. No hunting for typing 
mistakes. The programs for your computer are tested and ready to go the 
day you receive them. 

To order, call 1-800-258-1790 toll free. In N.H. call 673-5144. Be sure to 
specify TRS-80, Apple, or Atari. 

If you already receive SoftSide magazine, you will receive credit for the 
remainder of your subscription toward your new cassette or disk 
subscription. 

Magazine $18/year 
Magazine and Cassette $39/6 months 
Magazine and Cassette$75/year 
Magazine and Disk $64/6 months 
Magazine and Disk $125/year 



TRS-80, Apple, and Alari are trademarksof TANDY, APPLE COMPUTER CO. .and WARNER COMMUNICATIONS, respectively. 



